从r flexdashboard导出/下载生成的数据框 图表A 图表B

如何解决从r flexdashboard导出/下载生成的数据框 图表A 图表B

我现在正在尝试在flexdashboard中生成一个链接或下载按钮，以允许下载生成的数据框

我发现了这个问题https://community.rstudio.com/t/shiny-downloadbutton-does-not-render-in-flexdashboard/7492 但这说明了如何导出为.rds或将其下载为rio，但是我想要一些灵活性以允许以xlsx，csv或文本的形式下载，因此我尝试使用下面的代码使用rio包，但该代码不会生成可下载的文件。 有关如何进行这项工作的任何指导？还是我应该尝试一些基本的r函数而不是library(flexdashboard) library(rio) ？

谢谢

---

标题：“示例” 运行时间：闪亮 输出： flexdashboard :: flex_dashboard： 方向：行 vertical_layout：填充

numericInput("n1","First number",10) 

actionButton("execute","Generate data")

downloadLink(outputId = "save_link",label = "save")

行{data-height = 200}

图表A

 

table_data =  eventReactive(input$execute,{
  
  x = sample(1:input$n1,size=500,replace=TRUE)
  as.data.frame(x)
  
})



DT::renderDataTable({

req(table_data())  
  
    

  DT::datatable(table_data(),options = list(
    bPaginate = T,scrollY="100vh"
  ))
})


  
 
output$save_link <- downloadHandler(
    filename = function() {"table_data.txt"},content = function(file) {
     rio::export(table_data,file)
    }
    )
 

行{data-height = 800}

图表B

-fsanitize=address