library(sf)
departements <- st_read( "data-raw/map/departements-20140306-50m.shp", stringsAsFactors = FALSE ) %>%
select(-nuts3,-wikipedia) %>%
mutate_at( vars(nom,code_insee), as.character )
devtools::use_data( departements, overwrite = TRUE )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.