prep.mapping <- function(mappingFile)
{
mapping <- read.csv(mappingFile, stringsAsFactors=F)
mapping <- mapping %>%
select(primemover, fuel, fuel_general, matches("overnight"))
mapping
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.