打印闪亮的应用程序屏幕不工作错误：shinyjs：extendShinyjs：必须提供`functions` 参数

Question

我有一个闪亮的应用程序，它有一个打印屏幕按钮，但在更新了 Shinyjs 包后，代码不再有效。

我从RShiny 打印当前页面获得了这个解决方案，它曾经可以工作，但不再有效。

这是代码：

library(shiny)
library(shinyjs)
library(V8)

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)

但我现在收到以下错误，该应用程序将不再部署。

Error: shinyjs: extendShinyjs: `functions` argument must be provided

Answer 1

请尝试

extendShinyjs(text = jsCode, functions = c("winprint")),

代替

extendShinyjs(text = jsCode),

在您的ui.