r - 打印 Shiny 的应用程序屏幕不工作错误 : shinyjs: extendShinyjs: `functions` argument must be provided

Question

我有一个 Shiny 的应用程序，它有一个打印屏幕按钮，但在更新了 Shinyjs 包后，代码不再有效。
我从 RShiny print current page 得到了这个解决方案它曾经有效，但不再有效。
这是代码:

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 .