library(devtools)
usethis::use_data_raw()
original_wd <- getwd()
setwd("data-raw")
areas_influencia <- read.csv("areas_influencia.csv",
colClasses = "factor",
fileEncoding = "UTF-8")
usethis::use_data(areas_influencia, overwrite = TRUE)
devtools::document()
setwd(original_wd)
rm(original_wd, areas_influencia)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.