From c4097b89f89a20a28403722a09280963ab96bf36 Mon Sep 17 00:00:00 2001 From: gilbertocamara Date: Wed, 22 Jan 2025 18:58:57 -0300 Subject: [PATCH] further adjustments in sits_view --- R/api_conf.R | 7 ++++++- R/sits_view.R | 4 ++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/R/api_conf.R b/R/api_conf.R index 623caf7a..94b3e916 100644 --- 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 index c963e529..7c779fc2 100644 --- 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