%r闪亮打印当前页 [英] RShiny print current page

问题描述

如何在R SHINY Web应用程序中打印当前页面？在HTML中，可以使用window.print()；命令。但是我找不到并执行它对应的R闪亮命令。我脑子里想的是下面这样的事情？如何在服务器中调用html命令？

actionButton("print", "PRINT")

server <- function(input, output) {

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

推荐答案

可以使用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)

这篇关于%r闪亮打印当前页的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！