getting started with R apis

api_call.R

+library(httr)
+library(jsonlite)
+
+res <- GET("https://www.i14y.admin.ch/api/ContentConfigurations")
+json <- fromJSON(rawToChar(res$content))
+
+names(json)
+json$identifier
+
+
+res <- GET("https://www.i14y.admin.ch/api/ContentConfigurations/HCL_CH_ISCO_19_PROF")
+cc <- fromJSON(rawToChar(res$content))
+    
+res <- GET("https://www.i14y.admin.ch/api/Nomenclatures/Childnodes/HCL_CH_ISCO_19_PROF/fr/.?additionalProp1=string")
+ncn <- fromJSON(rawToChar(res$content))
+
+
+data1 <- read.csv("https://www.i14y.admin.ch/api/Nomenclatures/HCL_CH_ISCO_19_PROF/levelexport/CSV?level=1&annotations=true&additionalProp2=string&language=fr")
+
+data2 <- read.csv("https://www.i14y.admin.ch/api/Nomenclatures/HCL_CH_ISCO_19_PROF/multiplelevels/CSV?language=fr&levelFrom=1&levelTo=4&annotations=true&additionalProp1=string")

install.R

+install.packages(c("httr", "jsonlite"))
+devtools::install_github("opensdmx/rsdmx")
\ No newline at end of file

metadata-auto-r-library.Rproj

@@ -10,4 +10,4 @@ NumSpacesForTab: 2
 Encoding: UTF-8
 
 RnwWeave: Sweave
-LaTeX: pdfLaTeX
\ No newline at end of file
+LaTeX: pdfLaTeX