Как экспортировать вывод HTML с помощью downloadHandler в R блестящий?

Question

У меня есть блестящее приложение R, использующее функцию compare_df как часть пакета CompareDF, и оно производит вывод HTML. Мне было интересно, как экспортировать это как HTML-файл, используя downloadHandler? Это моя попытка:

Частичный код

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 по использованию обработчика загрузки для создания HTML через шаблон R Markdown: https://shiny.rstudio.com/articles/generating-reports.html