fix examples prematurely changed for useCors = FALSE

R/dynamicMapLayers.R

@@ -86,8 +86,7 @@ dynamicMapLayerOptions <- function(
 #'   addEsriDynamicMapLayer(
 #'     url = paste0("https://maps7.arcgisonline.com/arcgis/rest/services/",
 #'                  "USDA_USFS_2014_Wildfire_Hazard_Potential/MapServer"),
-#'     popupFunction = popupFunc,
-#'     options = dynamicMapLayerOptions(useCors = FALSE))
+#'     popupFunction = popupFunc)
 #'
 #' ## for more examples see
 #' # browseURL(system.file("examples/dynamicMapLayers.R", package = "leaflet.esri"))

R/imageMapLayers.R

@@ -82,11 +82,11 @@ imageMapLayerOptions <- function(
 #' @export
 #' @examples
 #' leaflet() %>%
-#'   addEsriBasemapLayer(esriBasemapLayers$Gray) %>%
-#'   setView(30, 0, 3) %>%
+#'   addEsriBasemapLayer(esriBasemapLayers$Imagery) %>%
+#'   setView(-120.23, 43.5, 5)  %>%
 #'   addEsriImageMapLayer(
-#'     url = "https://sampleserver3.arcgisonline.com/ArcGIS/rest/services/World/MODIS/ImageServer",
-#'     options = imageMapLayerOptions(useCors = FALSE))
+#'     url = "http://imagery.oregonexplorer.info/arcgis/rest/services/NAIP_2011/NAIP_2011_Dynamic/ImageServer",
+#'     options = imageMapLayerOptions(bandIds = c(3, 0, 1)))
 #'
 #' ## for more examples see
 #' # browseURL(system.file("examples/imageMapLayers.R", package = "leaflet.esri"))

inst/examples/dynamicMapLayers.R

@@ -15,8 +15,7 @@ leaflet() %>% setView(-99.88, 37.71, 4) %>%
     layerId = "selectedFeatures", position = "bottomleft") %>%
   addEsriDynamicMapLayer(
     url = "https://services.arcgisonline.com/arcgis/rest/services/Specialty/Soil_Survey_Map/MapServer",
-    layerId = "soil",
-    options = dynamicMapLayerOptions(useCors = FALSE)) %>%
+    layerId = "soil") %>%
   htmlwidgets::onRender(htmlwidgets::JS(
     "function(el, x, data) {
       var map = this;
@@ -62,5 +61,4 @@ popupFunc <- htmlwidgets::JS(
 leaflet() %>% setView(-96.8, 38.5, 4) %>%
   addEsriBasemapLayer(esriBasemapLayers$Gray, autoLabels = TRUE) %>%
   addEsriDynamicMapLayer(
-    url = "https://maps7.arcgisonline.com/arcgis/rest/services/USDA_USFS_2014_Wildfire_Hazard_Potential/MapServer", popupFunction = popupFunc,
-    options = dynamicMapLayerOptions(useCors = FALSE))
+    url = "https://maps7.arcgisonline.com/arcgis/rest/services/USDA_USFS_2014_Wildfire_Hazard_Potential/MapServer", popupFunction = popupFunc)

inst/examples/imageMapLayers.R

@@ -6,6 +6,8 @@
 library(leaflet.esri)
 
 #' ### Examples 1 & 2
+#' Simple examples. In Example 1 we need to disable CORS as the ArcGIS ver. is old and doesn't support cors.<br/><br/>
+
 
 leaflet() %>%
   addEsriBasemapLayer(esriBasemapLayers$Gray) %>%
@@ -20,8 +22,7 @@ leaflet() %>%
   addEsriBasemapLayer(esriBasemapLayers$Gray) %>%
   setView(-96.8, 38.5, 4) %>%
   addEsriImageMapLayer(
-    url = "https://seamlessrnc.nauticalcharts.noaa.gov/arcgis/rest/services/RNC/NOAA_RNC/ImageServer",
-    options = imageMapLayerOptions(useCors = FALSE))
+    url = "https://seamlessrnc.nauticalcharts.noaa.gov/arcgis/rest/services/RNC/NOAA_RNC/ImageServer")
 
 #' ### Example 3
 #' Custom band Ids for infrared image layer.<br/><br/>