已知Shiny应用可生成图表PDF/PNG下载，能否直接打印至物理打印机？

Absolutely, you can trigger the browser’s native print dialog to print your Shiny plot directly—no need to generate PDFs or PNGs first. The trick is using browser JavaScript to target just the plot area and launch the print dialog. Here are two solid approaches to make this work:

Approach 1: Client-Side Trigger (Simple & Straightforward) #

This method uses a button that runs JavaScript directly, so you don’t need extra server-side logic. It focuses on printing only the plot, not the entire Shiny page.

1. Give your plot an ID so we can target it in our code:

   ui <- fluidPage(
     actionButton("print_btn", "Print Plot"),
     plotOutput("target_plot") # Assign a unique ID to the plot
   )
   

2. Add CSS and print logic—we’ll style the page to hide everything except the plot when printing, then hook the button to launch the dialog:

   ui <- fluidPage(
     tags$head(
       tags$style(HTML("
         @media print {
           body * { visibility: hidden; }
           #target_plot, #target_plot * { visibility: visible; }
           #target_plot { position: absolute; top: 10px; left: 10px; }
         }
       "))
     ),
     actionButton("print_btn", "Print Plot", onclick = "window.print();"),
     plotOutput("target_plot")
   )
   

3. Keep your server logic as is—just render your plot normally:

   server <- function(input, output) {
     output$target_plot <- renderPlot({
       # Your plot code here (e.g., base R, ggplot2)
       ggplot(mtcars, aes(x = hp, y = mpg)) + geom_point(color = "blue") + theme_minimal()
     })
   }
   
   shinyApp(ui, server)
   

Approach 2: Server-Side Trigger (For Added Control) #

If you need to run server-side logic (like updating the plot right before printing) before launching the dialog, use shinyjs to call the print function from the server.

1. Install and load shinyjs:

   install.packages("shinyjs")
   library(shinyjs)
   

2. Set up the UI with useShinyjs():

   ui <- fluidPage(
     useShinyjs(),
     tags$head(
       tags$style(HTML("
         @media print {
           body * { visibility: hidden; }
           #target_plot, #target_plot * { visibility: visible; }
           #target_plot { position: absolute; top: 10px; left: 10px; }
         }
       "))
     ),
     actionButton("print_btn", "Print Plot"),
     plotOutput("target_plot")
   )
   

3. Add server logic to trigger printing:

   server <- function(input, output) {
     output$target_plot <- renderPlot({
       ggplot(mtcars, aes(x = hp, y = mpg)) + geom_point(color = "blue") + theme_minimal()
     })
   
     observeEvent(input$print_btn, {
       # Optional: Run any server-side updates here (e.g., refresh plot data)
       # ... your custom logic ...
       
       # Launch the print dialog
       runjs("window.print();")
     })
   }
   
   shinyApp(ui, server)
   

Quick Tips: #

• The @media print CSS rule ensures only your plot shows up in the print preview—adjust the ID (#target_plot) to match your plot’s actual output ID.
• This uses the browser’s built-in print system, so users will see their standard print dialog (with printer selection, page settings, etc.) just like printing any web page.
• The plot printed will be its current state when the button is clicked, so dynamic plots will reflect the latest inputs.

内容的提问来源于stack exchange，提问作者Tamas Ferenci