#43 fix getFeatureInfo

eblondel · Jul 9, 2021 · 43850d9 · 43850d9
1 parent b1302a1
commit 43850d9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/WMSLayer.R b/R/WMSLayer.R
@@ -301,13 +301,13 @@ WMSLayer <- R6Class("WMSLayer",
         saveXML(obj, destfile)
       }else if(destext == "json"){
         write(obj, destfile)
-      # }else if(destext == "xml"){
-      #   write(obj, destfile)
-       }
+      }else if(destext == "xml"){
+        saveXML(obj, destfile)
+      }
 
       ftFeatures <- NULL
       if(destext == "xml"){
-        xml<- xmlParse(obj)
+        xml<- xmlParse(file = destfile)
         rootname <- xmlName(xmlChildren(xml)[[1]])
         if(rootname == "FeatureInfoResponse"){
           xml_list <- xmlToList(xml)