R 闪亮打印当前页答案

【问题标题】：RShiny print current pageR 闪亮打印当前页
【发布时间】：2017-05-18 11:32:29
【问题描述】：

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

actionButton("print", "PRINT")

server <- function(input, output) {

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

【问题讨论】：

标签： r shiny

【解决方案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)

【讨论】：

结果会不会和只使用浏览器的原生“打印页面”命令一样？
是的@rvrvrv。这是所提问题的要求。
好的，谢谢，我正在尝试找到一种方法来打印页面，同时保留所有图形（浏览器的内置打印功能会切断）所以想知道这是否可以解决我的问题！跨度>
此解决方案不再有效。错误：shinyjs：extendShinyjs：必须提供functions 参数
在extendShinyjs() 中更新了functions = c("winprint") 以使其正常工作。