Skip to content
Snippets Groups Projects

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

Open Olivier Maury requested to merge r-script into main
All threads resolved!
1 file
+ 1
1
Compare changes
  • Side-by-side
  • Inline
+ 1
1
@@ -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
Loading