R Shiny downloadHandler使用问题求助：无法下载指定栅格数据

看起来你遇到的核心问题是作用域错误，外加一些小细节需要调整，我来帮你一步步理清：

问题根源 #

你把mapInput这个reactive对象定义在了renderPlot函数的内部，这就导致只有renderPlot能访问到它——而你的downloadHandler在外部，根本找不到这个mapInput()，Shiny遇到这种无法处理的错误时，就会默认返回downloadData.txt并提示服务器错误。

修复步骤 #

1. 把reactive对象移到全局作用域 #

将mapInput从renderPlot里抽出来，放在所有output函数的外面，这样renderPlot和downloadHandler都能调用它：

2. 完善writeRaster的参数 #

虽然你指定了.tif后缀，最好显式添加format="GTiff"参数，避免格式识别问题；另外加上overwrite=TRUE，可以防止用户重复下载时因文件已存在报错。

修复后的完整Server代码 #

server <- function(input, output) {
  output$range <- renderText({paste("Forecast from", timestart, "to", timeend)})
  
  # 把reactive对象移到所有output外面，让所有函数都能访问
  mapInput <- reactive({
    switch(input$model, 
           "Bluefin tuna" = BFT_PR, 
           "Yellowfin tuna" = YFT_PR, 
           "Fishing Aptitude Index"=FAI)
  })
  
  output$model <- renderPlot({
    palette <- colorRampPalette(c("blue", "#007FFF", "cyan", "#7FFF7F", "yellow", "#FF7F00", "red" ))(100)
    # 直接调用外部的mapInput()
    spplot(mapInput(), col.regions=palette, sp.layout= list(landmask_m, landmask_u, FZ), scales=list(draw = TRUE))
  })
  
  # Download map as geotiff ----
  output$downloadData <- downloadHandler(
    filename = function() {paste0(input$model, ".tif")},
    content = function(file) {
      # 调用同一个reactive对象，添加格式和覆盖参数
      writeRaster(mapInput(), file, format="GTiff", overwrite=TRUE)
    }
  )
}

额外提示 #

• 确保你的栅格对象（BFT_PR、YFT_PR、FAI）都是有效的RasterLayer/RasterStack，没有损坏；如果是多层栅格，writeRaster也能正常处理。
• 测试时可以先在控制台单独调用writeRaster验证栅格文件能正常导出，排除数据本身的问题。

内容的提问来源于stack exchange，提问作者Alberto Abad