下载数据表正在打印 HTML 和 table

Question

我有这个示例应用程序来显示和下载数据表。但它也在下载的附件之上打印 HTML 脚本。它正在打印徽标和标题 HTML 但我也想将它们保留在应用程序中。

library(shiny)
library(DT)
ui <- fluidPage(
  titlePanel(title = tags$div(img(src = "test.jpg", width = 170, height = 115, align = "left"))),
  titlePanel(title = tags$div(class = "header" , tags$p("Cars", tags$br(), tags$h4("MTCARS", style = "text-align: center; color:navy;"), style = "text-align: center; color:navy;"))),
  dataTableOutput("table_output")
)

server <- function(input, output, session){
  output$table_output <- renderDataTable(server=FALSE,{ 
    DT::datatable(head(mtcars), extensions = c('Buttons'), 
                  options = list(autoWidth = FALSE, dom = 'lfrtipB',
                                 buttons = list(list(extend = "csv", text = "CSV", filename = "cars",
                                                     exportOptions = list(modifier = list(page = "all"))),
                                                list(extend = "excel", text = "EXCEL", filename = "cars",
                                                     exportOptions = list(modifier = list(page = "all"))),
                                                list(extend = "pdf", text = "PDF", filename = "cars",
                                                     exportOptions = list(modifier = list(page = "all")))
                                 ))) })
}

shinyApp(ui, server)

Answer 1

我必须更改 UI 函数才能获得正确的附件。

ui <- fluidPage(
  img(src = "test.jpg", width = 170, height = 115, align = "left"),
  tags$div(class = "header" , tags$h2("Cars", tags$br(), tags$h4("MTCARS", style = "text-align: center; color:navy;"), style = "text-align: center; color:navy;")),
  dataTableOutput("table_output")
)

下载数据表正在打印 HTML 和 table

Download dataTable is printing HTML along with table

datatable

shiny