Merge pull request #184 from rolfsimoes/dev

Fix simplify_vector parameter

Author: rolfsimoes

R/ext_filter.R

@@ -265,8 +265,8 @@ before_request.ext_filter <- function(q) {
 }
 
 #' @export
-after_response.ext_filter <- function(q, res) {
-  after_response.items(q, res)
+after_response.ext_filter <- function(q, res, simplify_vector = TRUE) {
+  after_response.items(q, res, simplify_vector)
 }
 
 #' @export

R/ext_query.R

@@ -118,8 +118,8 @@ before_request.ext_query <- function(q) {
 }
 
 #' @export
-after_response.ext_query <- function(q, res) {
-  after_response.items(q, res)
+after_response.ext_query <- function(q, res, simplify_vector = TRUE) {
+  after_response.items(q, res, simplify_vector)
 }
 
 #' @export

R/extensions.R

@@ -165,7 +165,7 @@ content_response <- function(res, status_codes, content_types, key_message,
     res,
     type = "application/json",
     encoding = "UTF-8",
-    simplifyVector = TRUE,
+    simplifyVector = simplify_vector,
     simplifyDataFrame = FALSE,
     simplifyMatrix = FALSE
   )

R/search-query.R

@@ -148,6 +148,6 @@ before_request.search <- function(q) {
 }
 
 #' @export
-after_response.search <- function(q, res) {
-  after_response.items(q, res)
+after_response.search <- function(q, res, simplify_vector = TRUE) {
+  after_response.items(q, res, simplify_vector)
 }

man/preview_plot.Rd

@@ -0,0 +1 @@
+Rplots.pdf

tests/testthat/.gitignore

@@ -320,7 +320,7 @@ testthat::test_that("items functions", {
       item <- stac("https://stac.core.eopf.eodc.eu/") %>%
         collections(collection_id = "sentinel-2-l2a") %>%
         items(limit = 1) %>%
-        get_request(FALSE)
+        get_request(simplify_vector = FALSE)
 
       item$features[[1]]$properties$instrument
     },