dea

NAMESPACE

@@ -21,6 +21,7 @@ export(rema_v2)
 export(sentinel2_wms)
 export(srtm15)
 export(tas_dem)
+export(usgs_seamless)
 export(wms_ESA_worldcover_2020_tms)
 export(wms_amazon_elevation)
 export(wms_arcgis_mapserver_ESRI.WorldImagery_tms)

R/geoserver.R

@@ -15,9 +15,13 @@ aadc_geoserver <- function (type = c("WFS"))
   out
 }
 
+dea_wmts <- function() {
+  dea_geoserver("WMTS")
+}
 dea_geoserver <- function(type = c("WFS")) {
   dea <- c(WFS = "WFS:http://geoserver.dea.ga.gov.au/geoserver/wfs?REQUEST=GetCapabilities",
-           WMTS = "WMTS:https://geoserver.dea.ga.gov.au/geoserver/gwc/service/wmts?REQUEST=GetCapabilities")
+           WMTS = "WMTS:https://ows.dea.ga.gov.au/?service=WMTS&request=GetCapabilities")
+           #WMTS = "WMTS:https://geoserver.dea.ga.gov.au/geoserver/gwc/service/wmts?REQUEST=GetCapabilities")
   out <- generic_supported(dea, type)
   out
 }

R/sources.R

@@ -1,6 +1,7 @@
 #' USGS seamless DEM
 #'
 #' @param vsicurl if TRUE prefix /vsicurl
+#' @export
 #' @examples
 #'
 #' usgs_seamless()