From 312d2b42ddc480b8f7586ca5108208ab6a10f977 Mon Sep 17 00:00:00 2001 From: eblondel Date: Mon, 27 Jan 2025 10:30:34 +0100 Subject: [PATCH] fix regression in #130 -> reported in #137 --- R/WFSFeatureType.R | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/R/WFSFeatureType.R b/R/WFSFeatureType.R index 7440a1d..cb0f212 100644 --- a/R/WFSFeatureType.R +++ b/R/WFSFeatureType.R @@ -190,7 +190,7 @@ WFSFeatureType <- R6Class("WFSFeatureType", client = private$capabilities$getClient() ftDescription <- WFSDescribeFeatureType$new(private$capabilities, op = op, private$url, private$version, private$name, user = client$getUser(), pwd = client$getPwd(), token = client$getToken(), headers = client$getHeaders(), - config = self$getConfig(), + config = client$getConfig(), logger = self$loggerType) #exception handling if(ftDescription$hasException()){ @@ -350,10 +350,12 @@ WFSFeatureType <- R6Class("WFSFeatureType", ftFeatures <- do.call( WFSGetFeature$new, c( - capabilities = private$capabilities, op = op, url = private$url, version = private$version, typeName = private$name, outputFormat = outputFormat, - user = client$getUser(), pwd = client$getPwd(), token = client$getToken(), headers = client$getHeaders(), - config = client$getConfig(), - logger = self$loggerType, + list( + capabilities = private$capabilities, op = op, url = private$url, version = private$version, typeName = private$name, outputFormat = outputFormat, + user = client$getUser(), pwd = client$getPwd(), token = client$getToken(), headers = client$getHeaders(), + config = client$getConfig(), + logger = self$loggerType + ), vendorParams ) )