Update names in raster_mapply

R/raster_apply.R

@@ -43,13 +43,14 @@ raster_mapply <- function(x, sigma) {
   result <- raster::stack(result, layer)
   layer[] <- ste[[2]]
   result <- raster::stack(result, layer)
-  names(result) <- c(paste0("G_", sigma),
-                     paste0("LG_", sigma),
-                     paste0("GGM_", sigma),
-                     paste0("Struct.1_", sigma),
-                     paste0("Struct.2_", sigma),
-                     paste0("HOG.1_", sigma),
-                     paste0("HOG.2_", sigma))
+  base_name <- names(x)
+  names(result) <- c(paste(base_name, "G", sigma, sep = "_"),
+                     paste(base_name, "LG", sigma, sep = "_"),
+                     paste(base_name, "GGM", sigma, sep = "_"),
+                     paste(base_name, "ST.1", sigma, sep = "_"),
+                     paste(base_name, "ST.2", sigma, sep = "_"),
+                     paste(base_name, "HG.1", sigma, sep = "_"),
+                     paste(base_name, "HG.2", sigma, sep = "_"))
   result
 }