R Shiny 打印当前页面

Question

如何在 R Shiny 的 Web 应用程序中打印当前页面？在 HTML 中可以使用 window.print(); 命令。但是我找不到并执行其对应的 R Shiny 命令。我在想什么类似于以下内容？如何在 SERVER 中调用 html 命令？

actionButton("print", "PRINT")

server <- function(input, output) {

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

Answer 1

这可以使用 shinyjs 来完成调用js函数的包。

library(shiny)
library(shinyjs)

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

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



server <- shinyServer(function(input, output) {
  
  observeEvent(input$print, {
    js$winprint()
   })
})


shinyApp(ui, server)

希望能帮助到你!