# NOT RUN {
options(highcharter.download_map_data = TRUE)
# hcmap(nullColor = "#DADADA")
# hcmap(nullColor = "#DADADA", download_map_data = FALSE)
require(dplyr)
data("USArrests", package = "datasets")
USArrests <- mutate(USArrests, "woe-name" = rownames(USArrests))
# hcmap(
# map = "countries/us/us-all", data = USArrests,
# joinBy = "woe-name", value = "UrbanPop", name = "Urban Population"
# )
# download_map_data = FALSE
# hcmap(
# map = "countries/us/us-all", data = USArrests,
# joinBy = "woe-name", value = "UrbanPop", name = "Urban Population",
# download_map_data = FALSE
# )
# }
Run the code above in your browser using DataLab