fix plot segments

e-sensing · May 24, 2024 · 82c4022 · 82c4022
1 parent 01c5c00
commit 82c4022
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/sits_plot.R b/R/sits_plot.R
@@ -563,13 +563,13 @@ plot.vector_cube <- function(x, ...,
  .check_available_bands(x, band, red, green, blue)
  if (.has(band)) {
  main_title <- paste0(
- .tile_collection(tile), " ", band, " ", as.Date(date)
+ .tile_collection(tile), " ", band, " ", as.Date(dates[[1]])
  )
  # plot the band as false color
  p <- .plot_false_color(
  tile = tile,
  band = band,
- date = date,
+ date = dates[[1]],
  sf_seg = sf_seg,
  seg_color = seg_color,
  line_width = line_width,
@@ -585,15 +585,15 @@ plot.vector_cube <- function(x, ...,
  red, "(R) ",
  green, "(G) ",
  blue, "(B) ",
- as.Date(date)
+ as.Date(dates[[1]])
  )
  # plot RGB
  p <- .plot_rgb(
  tile = tile,
  red = red,
  green = green,
  blue = blue,
- date = date,
+ date = dates[[1]],
  main_title = main_title,
  sf_seg = sf_seg,
  seg_color = seg_color,