r - RShiny print current page

Question

How can I print the current page in R shiny web applications? It is possible in HTML by using the command of window.print();. But I could not find and implement its correspondent R Shiny command. What is on my mind is something like the following? How can I call an html command in SERVER?

actionButton("print", "PRINT")

server <- function(input, output) {

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

Answer 1

This can be done using shinyjs package to call a js function.

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)

Hope it helps!