From a40fc0742b36eaa44d4a44b451c75bfc050ed6aa Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Wed, 7 Jul 2021 16:02:03 +0200
Subject: [PATCH] #43 add xml output in case of text/xml info_format

---
 R/WMSLayer.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/WMSLayer.R b/R/WMSLayer.R
index f38d9d2..91b7ce1 100644
--- a/R/WMSLayer.R
+++ b/R/WMSLayer.R
@@ -291,6 +291,7 @@ WMSLayer <- R6Class("WMSLayer",
         "application/vnd.ogc.gml" = "gml",
         "application/vnd.ogc.gml/3.1.1" = "gml",
         "application/json" = "json",
+        "text/xml" = "xml",
         "gml"                  
       )
       tempf = tempfile()