osmplotr | Data visualisation using OpenStreetMap objects | Map library

  df.entrynames <- c("Entry 1: Some text","Entry 2: More text")
  df.lat <- c(51.509898,51.510736)
  df.lon <- c(-0.1345093,-0.135190)
  df.colors <-c("Blue","Red")
  df.sizes <-c(36,2)
  df.data <- data.frame(entrynames=df.entrynames,lat=df.lat,lon=df.lon,colors=df.colors,textsizes=df.sizes)
  df.data$entrynames <- as.character(df.data$entrynames)
  df.data$colors <- as.character(df.data$colors)
  df.data$textsizes <- paste(df.data$textsizes,"px",sep="")
  #Add a vector to split the data by     
  df.data$place<-seq(1:nrow(df.data))


  library(purrr)    

#split the data
  ob_place <- df.data %>% 
    split(., .$place)
#make a map
  m <- leaflet() %>% 
    addTiles() 

#Add layers
  names(ob_place) %>%
    purrr::walk(function(df.data) {
      m<<-m %>% #seems like there's supposed to be two carrots here, i had problems without one
        addCircleMarkers(data=ob_place[[df.data]],fillColor=~colors,
                         fillOpacity = 0.6,
                         weight=1,
                         radius=13,
                         color="white",
                         opacity = .6,
                         lng=~lon, lat=~lat,
                         group = "Show All",
                         label = ~entrynames,
                         labelOptions = labelOptions(noHide = T,
                                                     #direction = ~MyDirection, #https://rstudio.github.io/leaflet/popups.html
                                                     textsize = ~textsizes,
                                                     #opacity=~opacity,
                                                     style = list(
                                                       "color"="black",
                                                       "font-family" ="sans-serif",
                                                       "box-shadow" = "3px 3px rgba(0,0,0,0.25)",
                                                       #"font-size" = "12px",
                                                       "border-color" = "rgba(0,0,0,0.5)"
                                                     )))

    })
m