Как создать несколько отчетов с помощью одной кнопки, используя Shiny

Question

У меня есть приложение Shiny, которое генерирует отчеты о людях. Я хотел бы иметь одну кнопку, которая генерирует все отчеты, так как в данный момент я генерирую их один за другим.

Имена людей генерируются из RV4$data[,input$Map_EndoscopistIn], и отчет принимает несколько параметров как показано. Как я могу сгенерировать отчеты в al oop для каждого элемента списка RV4$data[,input$Map_EndoscopistIn] (предпочтительно с именем элемента как частью сгенерированного имени файла?

output$Allreports <- downloadHandler(


k<-RV4$data[,input$Map_EndoscopistIn]
      for ( i in k){


filename = "report.docx",
content = function(file) {

  tempReport <- file.path(tempdir(), "report.Rmd")
  file.copy("report.Rmd", tempReport, overwrite = TRUE)

  # Set up parameters to pass to Rmd document
  params <- list(EndoscopistChooserIn = RV4$data[,input$Map_EndoscopistIn][i],
                 Map_EndoscopistIn=input$Map_EndoscopistIn,
                 BarrEQPerformFinalTable=BarrEQPerformFinalTable(),
                 EndoscopyTypesDonePre=EndoscopyTypesDonePre(),
                 performanceTable=data(),
                 IndicsVsBiopsiesPre=IndicsVsBiopsiesPre(),
                 GRS_perEndoscopist_TablePrep=GRS_perEndoscopist_TablePrep()
  )

  rmarkdown::render(tempReport, output_file = file,
                    params = params,
                    envir = new.env(parent = globalenv())
  )
}
}
  )

Попытка выше не работает.