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

Question

我目前正在寻找一种更改普通网页打印功能参数的方法。事实上，当您按下 CTRL+P 时，它会打开一个小 window，您可以在其中将文件打印为 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 规则来自定义打印布局，例如删除边栏或按钮。

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

Changing CTRL+P of a web page using R shiny

r

shiny

shinydashboard