fix parse query string

M3nin0 · Jan 31, 2025 · a08dbd9 · a08dbd9
1 parent 208033f
commit a08dbd9
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -88,7 +88,7 @@ Suggests:
     gdalcubes (>= 0.7.0),
     geojsonsf,
     ggplot2,
-    httr2,
+    httr2 (>= 1.1.0),
     jsonlite,
     kohonen (>= 3.0.11),
     leaflet (>= 2.2.0),

diff --git a/R/api_cube.R b/R/api_cube.R
@@ -1444,7 +1444,7 @@ NULL
     # check that token is valid
     .check_that(.has(res_content))
     # parse token
-    token_parsed <- .url_parse(paste0("?", res_content[["token"]]))
+    token_parsed <- .url_parse_query(res_content[["token"]])
     file_info[["path"]] <- purrr::map_chr(seq_along(fi_paths), function(i) {
         path <- fi_paths[[i]]
         if (are_local_paths[[i]]) {

diff --git a/R/api_request_httr2.R b/R/api_request_httr2.R
@@ -223,6 +223,19 @@
     httr2::url_parse(url)
 }
 
+#' @title Parse URL
+#' @name .url_parse_query
+#' @keywords internal
+#' @noRd
+#' @author Felipe Carvalho, \email{felipe.carvalho@@inpe.br}
+#'
+#' @param url A character with URL query string.
+#'
+#' @return An character vector with parsed URL query string.
+.url_parse_query <- function(url) {
+    httr2::url_parse(url)
+}
+
 #' @title Build an URL
 #' @name .url_build
 #' @keywords internal

diff --git a/man/sits_classify.Rd b/man/sits_classify.Rd