get_country_name <-
function(lang = 'en'){
countries <- readRDS(system.file("external/countries.rds", package = "geographr"))
return(sort(as.character(countries[ , paste('country', lang, sep = '_'), ])))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.