使用 R Shiny 更改网页的 CTRL+P

Question

我目前正在寻找一种方法来更改普通网页的打印功能的参数。事实上，当您按下 CTRL+P 时，它会打开一个小窗口，您可以在其中将文件打印为 PDF，我正在尝试更改其中的一些信息。例如，第一页的标题和 PDF 文件的名称。如果有人知道如何在我的 R 闪亮代码中做到这一点，请尽快告诉我。谢谢你:)

Answer 1

将网页打印为 pdf 文件的对话框是浏览器的一项功能，无法使用 shiny 直接操作。然而，浏览器使用来自 head 标签的 HTML 元数据，例如打印标题。您可以将这些标签添加到闪亮的网页中：

library(shiny)

ui <- fluidPage(
  tags$head(
    # Define the title in both the browser tab name and pdf print header
    tags$title("My fancy shiny title")
  ),
  titlePanel("Hello Shiny!"),
  sidebarLayout(
    sidebarPanel(
      sliderInput(
        inputId = "bins",
        label = "Number of bins:",
        min = 1,
        max = 50,
        value = 30
      )
    ),
    mainPanel(
      plotOutput(outputId = "distPlot")
    )
  )
)

server <- server <- function(input, output) {
  output$distPlot <- renderPlot({
    x <- faithful$waiting
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    hist(x,
      breaks = bins, col = "#75AADB", border = "white",
      xlab = "Waiting time to next eruption (in mins)",
      main = "Histogram of waiting times"
    )
  })
}


shinyApp(ui, server)

您可能还想添加shiny::tags$style 标签，例如添加@media 规则以自定义打印布局，例如删除侧边栏或按钮。