如何创建for循环以迭代多个栅格文件输入并堆叠每个栅格

Question

我正在创建一个闪亮的应用程序，该应用程序将多个栅格作为输入并在创建模型之前堆叠栅格。用户上载栅格后，访问每个栅格时都会遇到问题。

ui.r

tabItem(tabName = "model",
                                h3("Select the Input explanatory variables"),
                                fileInput(inputId = "rasters",
                                          label = "Upload explanatory Rasters",
                                          accept = 'tif',
                                          multiple = TRUE
                                ),

Server.r

for (i in rsts){
      raster_list <- raster(i$datapath)
      stack(raster_list)
    }

我想访问每个栅格文件，然后将其栅格堆叠，然后再用于进一步的过程中以创建模型。