Question

如何在R闪亮的Web应用程序中打印当前页面？通过使用window.print（）;的命令可以在HTML中实现。但我无法找到并实施其通讯员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),
  actionButton("print", "PRINT")
  ))



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

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


shinyApp(ui, server)

希望它有所帮助！

RShiny打印当前页面

1 个答案: