# Wed Dec 16 11:54:43 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
require(terra)

# addLayer添加或删除层
rm(list=ls());gc()
# 从光栅层或光栅层添加光栅层。返回的对象始终是RasterStack（除非没有提供要添加或删除的内容，在这种情况下，返回原始对象）。

file <- system.file("external/test.grd", package="raster")
s <- stack(file, file, file)
r <- raster(file)
plot(s)
s <- addLayer(s, r/2, r*2)
s
s <- dropLayer(s, c(3, 5))
nlayers(s)
plot(s)
# Wed Dec 16 11:57:32 2020 --end