update on sits_plot documentation

R/sits_plot.R

@@ -1115,12 +1115,10 @@ plot.keras_model <- function(x, y, ...) {
     )
 
     # get the raster object
-    r <- suppressWarnings(raster::raster(cube$file_info[[1]]$path[[1]]))
+    r <- suppressWarnings(terra::rast(cube$file_info[[1]]$path[[1]]))
 
     # convert from raster to points
-    map.p <- raster::rasterToPoints(r)
-    # create a data frame
-    df <- data.frame(map.p)
+    df <- terra::as.data.frame(r, xy = TRUE)
     # define the column names for the data frame
     colnames(df) <- c("x", "y", "class")
 

demo/classify_raster_xgb.R

@@ -70,6 +70,9 @@ sinop_label <- sits_label_classification(
     output_dir = tempdir()
 )
 
+# plot the classified map
+plot(sinop_label)
+
 # plot the probabilities
 plot(sinop_probs)