Nothing
hydropower <- read.csv("inst/extdata/hydropower.csv",
stringsAsFactors = FALSE, strip.white = TRUE)
hydropower <- cbind.data.frame(hydropower, address = paste0(hydropower$Waterway, ', ', hydropower$State))
hydropower <- with(hydropower, data.frame(hydropower, t(sapply(hydropower$address, RgoogleMaps::getGeoCode))))
save(hydropower, file = "data/hydropower.rda")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.