storage <- read.csv("inst/extdata/storage.csv",
stringsAsFactors = FALSE, strip.white = TRUE)
storage = cbind.data.frame(storage, address = paste0(storage$County, ', ', storage$State))
storage <- with(storage, data.frame(storage, t(sapply(storage$address, RgoogleMaps::getGeoCode))))
save(storage, file = "data/storage.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.