saudiregions <- read.csv(file = 'data-raw/saudiregions.csv')
colnames(saudiregions) <-
make.names(colnames(saudiregions), allow_ = FALSE)
saudiregions <-
saudiregions[c(
'id',
'region.name',
'city.name',
'district.name',
'direction.name',
'city.id',
'direction.id'
)]
usethis::use_data(saudiregions, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.