Question

我有一个使用compare_df函数作为compareDF软件包的一部分的R闪亮应用程序，它产生HTML输出。我想知道如何使用downloadHandler将其导出为HTML文件？这是我的尝试：

部分代码


ui <- fluidPage(
sliderPanel(
   downloadButton("Export_HTML", "Export as Data Listing")
  ),
  # Main panel for displaying outputs ----
  mainPanel(uiOutput('html'))
  )

server <- function(input,output){

a<-- c("1","2","3")

diff<-compare_df(filedata2, filedata1, group_col = a)
   output$html <- renderUI({

      HTML(knit2html(text=diff[["html_output"]], fragment.only=TRUE))
})

  output$Export_HTML <- downloadHandler(
    filename = function() {
      paste("Comparison-", Sys.Date(), ".html", sep = "")
    },
    content = function(file) {

      saveWidget(as_widget(diff[["html_output"]]), file, selfcontained = TRUE)
    }
  )
}

Answer 1

您可能想看看Shiny Tutorial页面上的有关使用下载处理程序通过R Markdown模板生成HTML的页面：https://shiny.rstudio.com/articles/generating-reports.html

如何在R Shiny中使用downloadHandler导出HTML输出？

1 个答案: