quickMap.Rcheck/00_pkg_src/quickMap/R/quickMapFunction.R

In RyanBrown55/GISLab7: Quick Quantile Choropleth Map

#' Make a choropleth map with quantile bins!
#' This function reads a OGR object, a selected column from that data frame to be mapped and a label for areal units.
#' The data is then mapped via leaflet!
#' @param df rgdal, readOGR obejcet
#' @param column the data you would like to use for the choropleth map with quantile bins!
#' @param labelcolumn unique identifier for areal units
#' @return leaflet choropleth map with quantile bins
#' @export


quickMap <- function(df,column,labelcolumn){colorQuantile("BuPu", NULL)
  leaflet::leaflet(df) %>%
    addTiles() %>%
    addPolygons(stroke = FALSE, smoothFactor = 0.3, fillOpacity = 1,
                fillColor = ~pal(column),
                label = ~paste0(labelcolumn, ": ", formatC(column, big.mark = ","))) %>%
    addLegend(pal = pal, values = ~column, opacity = 1.0)}