further adjustments in sits_view

e-sensing · Jan 22, 2025 · c4097b8 · c4097b8
1 parent a02b0e8
commit c4097b8
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/R/api_conf.R b/R/api_conf.R
@@ -1271,8 +1271,13 @@ NULL
         leaflet::addProviderTiles(
             provider = leaflet::providers[["OpenStreetMap"]],
             group = "OSM"
+        ) |>
+        leaflet::addWMSTiles(
+            baseUrl = "https://tiles.maps.eox.at/wms/",
+            layers = "s2cloudless-2023_3857",
+            group = "Sentinel-2"
         )
-    base_groups <- c("ESRI", "OSM")
+    base_groups <- c("ESRI", "OSM", "Sentinel-2")
     # create a global object for leaflet control
     sits_leaflet <- list(leaf_map = leaf_map,
                          base_groups = base_groups,

diff --git a/R/sits_view.R b/R/sits_view.R
@@ -263,7 +263,7 @@ sits_view.raster_cube <- function(x, ...,
                                   max_cog_size = 2048,
                                   first_quantile = 0.02,
                                   last_quantile = 0.98,
-                                  leaflet_megabytes = 64,
+                                  leaflet_megabytes = 32,
                                   add = FALSE) {
     # set caller for errors
     .check_set_caller("sits_view_raster_cube")
@@ -447,7 +447,7 @@ sits_view.class_cube <- function(x, ...,
                                  palette = "Set3",
                                  version = NULL,
                                  opacity = 0.85,
-                                 max_cog_size = 1024,
+                                 max_cog_size = 2048,
                                  leaflet_megabytes = 32,
                                  add = FALSE){
     # set caller for errors