From e5ae6e3c299aec1ffc41844944becf4569f055ad Mon Sep 17 00:00:00 2001 From: rhijmans Date: Fri, 6 Feb 2026 17:27:47 -0800 Subject: [PATCH] for future compatibility --- R/ggR.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/ggR.R b/R/ggR.R index cb58d113..7412e38d 100644 --- a/R/ggR.R +++ b/R/ggR.R @@ -118,8 +118,9 @@ ggR <- function(img, layer = 1, maxpixels = 500000, alpha = 1, hue = 1, sat = 0 dimImg <- dim(xfort) df <- lapply(names(xfort), function(layer) { - df <- data.frame(extract(xfort[[layer]], seq_along(values(xfort[[layer]])), xy = TRUE), - layerName = factor(layer, levels = names(xfort))) +# df <- data.frame(extract(xfort[[layer]], seq_along(values(xfort[[layer]])), xy = TRUE), +# layerName = factor(layer, levels = names(xfort))) + df <- as.data.frame(xfort[[layer]], xy=TRUE, layerName=factor(layer, levels = names(xfort))) colnames(df) <- c("x", "y", "value", "layerName") df })