r - 输入变量未在 downloadHandler for Shiny 内更新

Question

我试图根据用户的单选输入按钮输出 .html 或 .csv 文件，但输入未在 downloadHandler 内更新。它保持选择的默认值。

output$bidownload <- downloadHandler(


  if(input$conreport == 'report') {
    filename = paste0(input$conreport, '.html')
  } else {
    filename = paste0(input$conreport, '.csv')
  },
  content = function(file) {
    if(as.character(input$reporttype) == 'report') {
      tempReport <- file.path(tempdir(), paste0(input$conreport, '.Rmd'))
      file.copy(paste0(input$conreport, '.Rmd'), tempReport, overwrite = TRUE)

      params <- list(range = as.character(input$dateparam))

      rmarkdown::render(tempReport, output_file = file,
                        params = params,
                        envir = new.env(parent = globalenv())
      )
    } else {
      write.csv(weightbreak_raw(), file)
    }
  }
)

由于选定的单选按钮位于“报告”上，因此即使用户更改单选按钮，我也会始终生成 .html 文档。如何在下载处理程序中获取要更新的输入？我查了 here仍然不知道如何解决这个问题

Answer 1

downloadHandler文件名参数是字符串或函数。如果您使用字符串，则在渲染时对其进行评估，但如果您使用函数，则会在下载时对其进行评估(因此在用户选择所需的下载类型后):

output$bidownload <- downloadHandler(
  function(){
    if(input$conreport == 'report') 
      paste0(input$conreport, '.html')
    else
      paste0(input$conreport, '.csv')
  },
...