inst/extdata/storage.R

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")

Try the energyr package in your browser

Any scripts or data that you put into this service are public.

energyr documentation built on May 2, 2019, 6:36 a.m.