getCountryIdsFromRegion <- function(region = "Europe", vname="ISO3", ontology=countryOntology) {
as.character(ontology[grep(ontology$IS_IN_GROUP, pattern=region, ignore.case=TRUE), vname])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.