functions and color palette for blog post.

MultiplePolygons.R

mapPoints <- function(map, df) {
  df <- as.data.table(df)
  df <- df[complete.cases(df[, .(long_x, lat_y)])]
  unq_id <- unique(df$dateid)
  pal <- rep_len(color_pal, length(unq_id))
  layers <- list()
  
  for(i in 1:length(unq_id)) {
    dat <- df[dateid == unq_id[i]]
    map <- addPolylines(map, lng = dat$long_x, lat = dat$lat_y,
                        group = as.character(unq_id[i]),
                        color = pal[i], weight = 1) 
    map <- addCircleMarkers(map, lng = dat$long_x, lat = dat$lat_y,
                            group = as.character(unq_id[i]), color = pal[i],
                            radius = 3, stroke = FALSE,fillOpacity = .3,
                            popup = paste(sep = "<br>",
                                          paste("<b>NDOW ID:</b> ", unq_id[i]),
                                          paste("<b>timestamp:</b> ", dat$timestamp),
                                          paste("<b>LocID</b>: ", dat$locid)))
    layers <- c(layers, as.character(unq_id[i]))
  }
  map <- addLayersControl(map, overlayGroups = layers)
  return(map)
}
mapPolygons <- function(map, geojson) {
  pal <- rep_len(color_pal, length(geojson))
  for (i in seq_along(geojson)) {
    map <- addGeoJSON(map, geojson[[i]], color = pal[i],
                      weight = 1, group = names(geojson)[i])
  }
  return(map)
}
color_pal <- c("#3366CC", "#DC3912", "#FF9900", "#109618", "#990099", "#0099C6", 
               "#DD4477", "#66AA00", "#B82E2E", "#316395", "#994499", "#22AA99", 
               "#AAAA11", "#6633CC", "#E67300", "#8B0707", "#651067", "#329262", 
               "#5574A6", "#3B3EAC")