Merge pull request #959 from OldLipe/feat/plot_patterns

Add bands parameter in plot patterns
e-sensing · Apr 28, 2023 · 38ac57d · 38ac57d
2 parents ae55a36 + 4b5524f
commit 38ac57d
Show file tree

Hide file tree

Showing 6 changed files with 1,059 additions and 134 deletions.
diff --git a/R/sits_bands.R b/R/sits_bands.R
@@ -18,7 +18,6 @@
 #'
 #' @export
 sits_bands <- function(x) {
-
  # Set caller to show in errors
  .check_set_caller("sits_bands")
  # Get the meta-type (sits or cube)

diff --git a/R/sits_get_data.R b/R/sits_get_data.R
@@ -543,7 +543,7 @@ sits_get_data.data.frame <- function(cube,
  }
 
  ts_tbl <- ts_tbl %>%
- dplyr::summarise(
+ dplyr::reframe(
  dplyr::across(dplyr::all_of(bands), stats::na.omit)) %>%
  dplyr::arrange(.data[["Index"]]) %>%
  dplyr::ungroup() %>%