fix: missing field "page" in API ecoulement

See BRGM/hubeau#127 for the related bug in Hubeau Refs #14
inrae · Feb 14, 2023 · f1eb89d · f1eb89d
1 parent f942508
commit f1eb89d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/data-raw/configuration.R b/data-raw/configuration.R
@@ -37,10 +37,10 @@ defineApis <- function(api, cfg) {
 # Fix issue https://github.com/BRGM/hubeau/issues/127
 ecoulement_ep <- names(.cfg$apis$ecoulement$endpoints)
 for (ep in ecoulement_ep) {
-  which_fields <- which(grepl("fields", .cfg$apis$ecoulement$endpoints[[ep]]$fields))
-  .cfg$apis$ecoulement$endpoints[[ep]]$fields[which_fields] <- "fields"
+  for (f in c("page", "fields")) {
+    which_fields <- which(grepl(f, .cfg$apis$ecoulement$endpoints[[ep]]$fields))
+    .cfg$apis$ecoulement$endpoints[[ep]]$fields[which_fields] <- f
+  }
 }
 
-
-
 usethis::use_data(.cfg, overwrite = TRUE, internal = TRUE)