# Get Weather data (i.e. which routes were surveyed each year)
#' @export GetWeather
GetWeather <- function(Dir="ftp://ftpext.usgs.gov/pub/er/md/laurel/BBS/DataFiles/") {
weather=GetUnzip(ZipName=paste0(Dir, "Weather.zip"), FileName="weather.csv")
weather$routeID=paste(weather$statenum, weather$Route)
weather
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.