RShiny打印当前页面

Question

如何在R闪亮的Web应用程序中打印当前页面？通过使用window.print();的命令可以在HTML中实现.但我无法找到并实施其通讯员R Shiny命令.我的想法是什么,如下所示？如何在SERVER中调用html命令？

actionButton("print", "PRINT")

server <- function(input, output) {

        observeEvent(input$print, {
          window.print();
        })
}

Answer 1

这可以使用shinyjspackage调用js函数来完成.

library(shiny)
library(shinyjs)

jsCode <- 'shinyjs.winprint = function(){
window.print();
}'

ui <- shinyUI(fluidPage(
  useShinyjs(),
  extendShinyjs(text = jsCode),
  actionButton("print", "PRINT")
  ))



server <- shinyServer(function(input, output) {

  observeEvent(input$print, {
    js$winprint()
   })
})


shinyApp(ui, server)

希望能帮助到你!