Skip to content

Instantly share code, notes, and snippets.

@rrodrigueznt
Last active April 3, 2018 13:54
Show Gist options
  • Save rrodrigueznt/5680461 to your computer and use it in GitHub Desktop.
Save rrodrigueznt/5680461 to your computer and use it in GitHub Desktop.
#
library(stringr)
#
language <- c('en','es','gl')
#
for (lan in language)
{
url <- paste("http://atriumkm.idisantiago.es/bin/get/XWQL/idisAreas?language=",lan,"&outputSyntax=plain",sep = '')
assign(paste("IDISareas",str_to_title(lan),sep = ''), read.table(url, header = TRUE, sep = ';', encoding = 'UTF-8', row.names = NULL))
}
#
@rrodrigueznt
Copy link
Author

Retrieve and store in a data frame the short name and long name in three languages of all Health Research Institute of Santiago de Compostela's areas. Simpler is nicer!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment