Merge branch 'master' of https://github.com/e-sensing/sits

gilbertocamara · gilbertocamara · commit f16c8a59a88d · 2021-10-26T12:07:17.000-03:00
diff --git a/R/sits_plot.R b/R/sits_plot.R
@@ -208,7 +208,7 @@ plot.raster_cube <- function(x, ...,
         rgb_stack <- c(red_file, green_file, blue_file)
     }
     # use the raster package to obtain a raster object from a stack
-    r_obj <- .raster_open_stack.raster(rgb_stack)
+    r_obj <- .raster_open_stack.terra(rgb_stack)
 
     # extract region of interest
     if (!purrr::is_null(roi)) {

Original file line number	Diff line number	Diff line change
`@@ -208,7 +208,7 @@ plot.raster_cube <- function(x, ...,`
`208`	`208`	`rgb_stack <- c(red_file, green_file, blue_file)`
`209`	`209`	`}`
`210`	`210`	`# use the raster package to obtain a raster object from a stack`
`211`		`- r_obj <- .raster_open_stack.raster(rgb_stack)`
	`211`	`+ r_obj <- .raster_open_stack.terra(rgb_stack)`
`212`	`212`
`213`	`213`	`# extract region of interest`
`214`	`214`	`if (!purrr::is_null(roi)) {`