countries <- c("DEU", "FRA", "ENG", "ITA", "NLD", "POL")
map <- data.frame(region = rep(c("REG1","REG2"), 3), countries = countries)
sets <- list(list(name = "countries",
desc = "list of countries",
items = countries),
list(name = "country2region",
desc = "mapping between countries and regions",
items = map))
cat(writeSets(sets), sep="\n")
Run the code above in your browser using DataLab