library(readr)
library(dplyr)
zones <- read_csv("data-raw/zonas.csv", col_types = cols(
region = col_character(),
state_code = col_character(),
state_abbr = col_character(),
municipio_code = col_character(),
municipio_name = col_character(),
zone = col_character()
)) %>%
arrange(zone)
tail(zones)
zones <- as.data.frame(zones)
Encoding(zones$municipio_name) <- "UTF-8"
devtools::use_data(zones, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.