如何对R中特定文件夹的所有栅格数据进行运算？

file_names <- list.files(folder_path)

library(raster)
rasters <- list()
for (file_name in file_names) {
  if (endsWith(file_name, ".tif")) {
    raster_data <- raster(file.path(folder_path, file_name))
    rasters[[file_name]] <- raster_data
  }
}

result <- NULL
for (file_name in names(rasters)) {
  if (is.null(result)) {
    result <- rasters[[file_name]]
  } else {
    result <- result + rasters[[file_name]]
  }
}

writeRaster(result, file.path(folder_path, "result.tif"), format = "GTiff")