refactor: change API path building

Formerly all APIs has "/api" as base path but hydrometrie/v2 has "/" and endpoints has "api/v2/endpoint" paths

This change takes care of the base path which can be different from one API to another now.

Refs #45

R/doApiQuery.R

@@ -63,10 +63,8 @@ doApiQuery <- function(api,
   if (!missing(...)) params <- p_ellipsis
   if (missing(params)) params <- list()
 
-  availableParams <- list_params(api, endpoint)
-
   query <-
-    file.path(.cfg$api_url, .cfg$apis[[api]]$path, .cfg$apis[[api]]$endpoints[[endpoint]]$path)
+    file.path(.cfg$api_url, .cfg$apis[[api]]$endpoints[[endpoint]]$path)
   for (paramName in names(params)) {
     if (!paramName %in% .cfg$apis[[api]]$endpoints[[endpoint]]$fields) {
       stop(

data-raw/configuration.R

@@ -7,24 +7,25 @@ library(httr)
 
 defineApis <- function(api, cfg) {
   message("Processing API: ", api$path)
-  query <- file.path(cfg$api_url, api$path, cfg$api_docs)
+  query <- file.path(cfg$api_url, cfg$api_path, api$path, cfg$api_docs)
   d <- content(GET(query), as = "parsed")
   sapply(c("swagger", "openapi"), function(fmt) {
     if (!is.null(d[[fmt]])) {
       message(fmt, " ", d[[fmt]])
     }
   })
   path_endpoints <- names(d$paths)
-  path_endpoints <- path_endpoints[!grepl(".csv", path_endpoints, fixed = TRUE)]
+  path_endpoints <- path_endpoints[!grepl("\\.(csv|xml)$", path_endpoints)]
   endpoints <- basename(path_endpoints)
   fields <- lapply(path_endpoints, function(ep) {
     if(!is.null(d$paths[[ep]]$get$parameters)) {
       sapply(d$paths[[ep]]$get$parameters, "[[", "name")
     }
   })
   l <- lapply(seq_along(endpoints), function(i) {
-    path <- gsub(api$path, "", path_endpoints[i])
+    path <- file.path(d$basePath, path_endpoints[i])
     path <- gsub("^/+", "", path)
+    path <- gsub("//", "/", path)
     list(path = path,
          fields = fields[[i]])
   })