RShiny印刷現在のページ

Question

Rの光沢のあるウェブアプリケーションで現在のページを印刷するにはどうすればよいですか？ HTMLではwindow.print（）;というコマンドを使用することができます。しかし、私はその特派員のR Shinyコマンドを見つけて実装することができませんでした。私の頭の中には、次のようなものがありますか？サーバーで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) 

希望すると助かります！