From 5b5148c30ddb8fe9d63762198983797068cc0eb5 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Wed, 27 Jan 2021 22:25:50 +0100
Subject: [PATCH] #43 getfeatureinfo compatibility with wms 1.3

---
 R/WMSClient.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/WMSClient.R b/R/WMSClient.R
index 287ebc8..1d9fb09 100644
--- a/R/WMSClient.R
+++ b/R/WMSClient.R
@@ -87,7 +87,7 @@ WMSClient <- R6Class("WMSClient",
           )
        }else if(is(wmsLayer, "list")){
           features <- wmsLayer[[1]]$getFeatureInfo(
-             srs = srs, crs = crs, styles = styles, feature_count = feature_count,
+             srs = srs, styles = styles, feature_count = feature_count,
              x = x, y = y, width = width, height = height, bbox = bbox,
              info_format = info_format,
              ...