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")
paulgovan/energyr documentation built on July 30, 2023, 11:08 a.m.