library(igraph)
library(raster)
files <- system.file("maps", package = "quickPlot") %>%
dir(., full.names = TRUE, pattern = "tif")
maps <- lapply(files, function(x) raster(x))
names(maps) <- sapply(basename(files), function(x) {
strsplit(x, split = "\\.")[[1]][1]
})
stck <- stack(maps)
numLayers(maps)
numLayers(stck)
Run the code above in your browser using DataLab