From 0c00db029065ecc00261b24eade958887c48334c Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Wed, 7 Jul 2021 16:00:48 +0200
Subject: [PATCH] #43 change default info_format for getfeatureinfo

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

diff --git a/R/WMSGetFeatureInfo.R b/R/WMSGetFeatureInfo.R
index bcce779..45b4c31 100644
--- a/R/WMSGetFeatureInfo.R
+++ b/R/WMSGetFeatureInfo.R
@@ -25,7 +25,7 @@ WMSGetFeatureInfo <- R6Class("WMSGetFeatureInfo",
  ), 
  public = list(
    initialize = function(op, url, version, layers, srs, styles, feature_count = 1,
-                         x, y, width, height, bbox, info_format = "application/vnd.ogc.gml",
+                         x, y, width, height, bbox, info_format = "text/xml",
                          logger = NULL, ...) {
      
      mimeType <- switch(info_format,