Question

是否可以将图标的标题添加到下载的pdf版本中？我不希望它出现在闪亮的，只有当用户下载情节并将其打开为pdf时才会出现？

简单代码：

shinyServer(function(input, output) {

  dataInput<-reactive({
    inFile <- input$file1
    if (is.null(inFile))  return(NULL)
    data<-read.csv(inFile$datapath, fileEncoding="UTF-16", sep="\t")
    data$date<-ymd(data$StartDate)
    data$date2<-format(data$date,"%b %y")
  })

  plotInput<-function(){
    data <- dataInput()
    ggplot(data, aes(x=date, y=Queries, group=Category, color=Category))+geom_line(size=1.5)

  }

  output$plot <- renderPlot({plotInput()})

  output$foo <- downloadHandler(
    filename ="graph.pdf",
    content = function(file) {
      pdf(file, width=12, height=6.3)
      print(plotInput())
            dev.off()
    })
})
})

感谢您的帮助！

Answer 1

在您的代码中，plotInput()会返回ggplot个对象，因此您只需在ggtitle中使用downloadHandler添加标题：

output$foo <- downloadHandler(
            filename ="graph.pdf",
            content = function(file) {
                    pdf(file, width=12, height=6.3)
                    print(plotInput()+ggtitle('Title'))
                    dev.off()
            })

Shiny：仅为其下载的pdf版本的图表标题

1 个答案: