update plot for vector and uncertainty data cubes

Author: gilbertocamara

R/api_select.R

@@ -62,14 +62,15 @@
     }
     return(data)
 }
+#' @title Select tiles from cube
 #' @noRd
-#' @name .select_raster_cube
 #' @param data       Data cube.
 #' @param bands      Character vector with the names of the bands.
 #' @param start_date Date in YYYY-MM-DD format: start date to be filtered.
 #' @param end_date   Date in YYYY-MM-DD format: end date to be filtered.
 #' @param dates      Character vector with sparse dates to select.
 #' @param tiles      Character vector with the names of the tiles.
+#' @return  selected lines of the data cube tibble
 #'
 .select_raster_cube <- function(data,
                                 bands = NULL,

R/sits_plot.R

@@ -526,6 +526,8 @@ plot.raster_cube <- function(x, ...,
 #' @param  rev           Reverse the color order in the palette?
 #' @param  scale         Scale to plot map (0.4 to 1.5)
 #' @param  style         Style for plotting continuous objects
+#' @param  first_quantile First quantile for stretching images
+#' @param  last_quantile  Last quantile for stretching images
 #' @param  max_cog_size  Maximum size of COG overviews (lines or columns)
 #' @return               A plot object with an RGB image
 #'                       or a B/W image on a color
@@ -534,8 +536,6 @@ plot.raster_cube <- function(x, ...,
 #' @note The following optional parameters are available to allow for detailed
 #'       control over the plot output:
 #' \itemize{
-#' \item \code{first_quantile}: 1st quantile for stretching images (default = 0.05)
-#' \item \code{last_quantile}: last quantile for stretching images (default = 0.95)
 #' \item \code{graticules_labels_size}: size of coordinates labels (default = 0.8)
 #' \item \code{legend_title_size}: relative size of legend title (default = 1.0)
 #' \item \code{legend_text_size}: relative size of legend text (default = 1.0)
@@ -573,11 +573,13 @@ plot.vector_cube <- function(x, ...,
                              tile = x[["tile"]][[1]],
                              dates = NULL,
                              seg_color = "black",
-                             line_width = 0.3,
+                             line_width = 0.2,
                              palette = "RdYlGn",
                              rev = FALSE,
-                             scale = 1.0,
-                             style = "order",
+                             scale = 0.8,
+                             style = "cont",
+                             first_quantile = 0.02,
+                             last_quantile = 0.98,
                              max_cog_size = 1024) {
     .check_set_caller(".plot_vector_cube")
     # retrieve dots
@@ -630,6 +632,8 @@ plot.vector_cube <- function(x, ...,
             rev = rev,
             scale = scale,
             style = style,
+            first_quantile = first_quantile,
+            last_quantile = last_quantile,
             max_cog_size = max_cog_size,
             tmap_params = tmap_params
         )
@@ -898,6 +902,9 @@ plot.variance_cube <- function(x, ...,
 #' @param  palette       An RColorBrewer palette
 #' @param  rev           Reverse the color order in the palette?
 #' @param  scale          Scale to plot map (0.4 to 1.0)
+#' @param  style         Style for plotting continuous objects
+#' @param  first_quantile First quantile for stretching images
+#' @param  last_quantile  Last quantile for stretching images
 #' @param  max_cog_size  Maximum size of COG overviews (lines or columns)
 
 #'
@@ -907,8 +914,6 @@ plot.variance_cube <- function(x, ...,
 #' @note The following optional parameters are available to allow for detailed
 #'       control over the plot output:
 #' \itemize{
-#' \item \code{first_quantile}: 1st quantile for stretching images (default = 0.05)
-#' \item \code{last_quantile}: last quantile for stretching images (default = 0.95)
 #' \item \code{graticules_labels_size}: size of coordinates labels (default = 0.8)
 #' \item \code{legend_title_size}: relative size of legend title (default = 1.0)
 #' \item \code{legend_text_size}: relative size of legend text (default = 1.0)
@@ -944,7 +949,10 @@ plot.uncertainty_cube <- function(x, ...,
                                   tile = x[["tile"]][[1]],
                                   palette = "RdYlGn",
                                   rev = TRUE,
-                                  scale = 1.0,
+                                  scale = 0.8,
+                                  style = "cont",
+                                  first_quantile = 0.02,
+                                  last_quantile = 0.98,
                                   max_cog_size = 1024) {
     .check_set_caller(".plot_uncertainty_cube")
     # get tmap params from dots
@@ -976,7 +984,9 @@ plot.uncertainty_cube <- function(x, ...,
         main_title = main_title,
         rev = rev,
         scale = scale,
-        style = "order",
+        style = style,
+        first_quantile = first_quantile,
+        last_quantile = last_quantile,
         max_cog_size = max_cog_size,
         tmap_params = tmap_params
     )

man/plot.uncertainty_cube.Rd

@@ -46,7 +46,7 @@ test_that("Plot Time Series and Images", {
         progress = FALSE
     )
     p <- plot(sinop, band = "NDVI", palette = "RdYlGn")
-    expect_equal(p$tm_shape$shp_name, "rast")
+    expect_equal(p$tm_shape$shp_name, "st")
     expect_equal(p$tm_raster$palette, "RdYlGn")
     expect_equal(p$tm_grid$grid.projection, 4326)