Question

我正在尝试将多个图表和表格下载到一个html文件中。这是我的情况：

datatable <- reactive({
    inFile <- input$file1
    if (is.null(inFile))
      return(NULL)
    read.csv(inFile$datapath, header=input$header, sep=input$sep, quote=input$quote)
})

我使用上面的代码将csv文件读取到datatable，然后我使用以下代码对要分析的数据集进行一些预处理：

pickedsinglefactor <- function(singlefactor,datatable){
  ...
  e <- ddply()
}

在shinyServer中，我使用以下代码来接收数据：

singlefactordataframe <- reactive(pickedsinglefactor(input$sfactor,datatable))

以下是我的情节和表格：

output$singleplotcount <- renderPlotly({
    e <- singlefactordataframe()
    ...
    pcount <- ggplotly(pcount)
    pcount
  })

.......................

  output$singletable <- renderDataTable({
    e <- singlefactordataframe()
    if (input$checksinglefactorvalues) {e <- subset(e,e[,1] %in% input$sfactorvalues)}
    e
  })

事实上，我可能有很多需要下载到html文件中的图表和表格，其数量无法预先定义。那么，我如何将所有图表和表格下载到一个文件中？任何帮助将不胜感激。

R shiny Rmd：如何使用Rmd将多个图表和表格下载到html或word文件中？

0 个答案: