Ajout de script R pour l'export de données

Suite à la demande de @frederic.jean d'avoir accès facilement aux données de l'observatoire Forêt pour leurs analyses, utiliser l'export par web service de SIDO est la solution la plus sûre et autonome.

Les besoins sont :

• script R
• utilisation de la bibliothèque Rcurl (qui fonctionne sur leurs postes)
• sorties dans des CSV en reprenant les colonnes du modèle de classeur, de la feuille Données et aussi des feuilles Dico* (Échelle notation autre...)
• ajout d'une colonne reprenant le nom du fichier XLSX contenant la donnée

Le paramétrage SIDO a été fait dans le commit de ce jour.

fixes #10604

bin/export.r

@@ -110,7 +110,7 @@ get_data <- function(schema, query, access_token) {
                                  .encoding = "UTF-8")
   data <- jsonlite::fromJSON(data_response)
   if (data$status != 200) {
-    logger::log_error("- Error ", data$status, ": ", data$message, "\n")
+    logger::log_error(paste0("  Error ", data$status, ": ", data$message))
   }
   df <- data.frame(data$data$values)
   names(df) <- data$data$properties$title