# NOT RUN {
#example based on a WMS endpoint responding at http://localhost:8080/geoserver/wms
wms <- WMSClient$new("http://localhost:8080/geoserver/wms", serviceVersion = "1.1.1")
#get capabilities
caps <- wms$getCapabilities()
#get feature info
#Advanced examples at https://github.com/eblondel/ows4R/wiki#wms
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab