R/map.R

In jacob-ogre/us.geonames: US geographic placenames data, searches, and mapping

#' Basic leaflet map of points identified in a \code{us.geonames} search
#'
#' @param df A dataframe from a \link{us.geonames} search
#' @param weight Weight of circle marker border (default = 1)
#' @param color Color of circle marker border (default = "red")
#' @param fillColor Fill color of circle marker (default = "red")
#' @param fillOpacity Opacity of a single marker (default = 0.3)
#' @param radius Radius of circle marker (default = 5)
#'
#' @export
#'
gn_leaflet_basic <- function(df, weight = 1, color = "red", fillColor = "red",
                             fillOpacity = 0.3, radius = 5) {
  leaflet::leaflet(df) %>%
    leaflet::addProviderTiles("Stamen.Terrain") %>%
    leaflet::addCircleMarkers(
      lng = df$prim_long_dec,
      lat = df$prim_lat_dec,
      weight = 1,
      color = "red",
      fillColor = "red",
      fillOpacity = 0.3,
      radius = 5,
      popup = ~paste0("<b>", df$terms, "</b><br>",
                      "<b>Class:</b> ", df$feature_class,
                      "<br><b>Long & Lat:</b><br>", df$prim_long_dec, "<br>",
                      df$prim_lat_dec)
    )
}

#' Calculate the minimum convex polygon of points, and map
#'
#' NOT YET IMPLEMENTED
#'
#' @export
gn_add_mcp <- function(df, map, pct) {
  # create XYs, run mcp, addPolygons
  # ...
  stop("Not yet implemented.")
}

#' Calculate a basic kernel density estimator of points, and map
#'
#' NOT YET IMPLEMENTED
#'
#' @export
add_kde <- function(df, map, pct) {
  # create XYs, run ud, addPolygons
  # ...
  stop("Not yet implemented.")
}