在Flexdashboard中下载图表

Question

我正在尝试使用Flex仪表板输入栏中的下载按钮来下载显示为* .pdf的图表集合。整个仪表板都可以正常工作，并且下载按钮可以正确呈现；但是，当我单击下载按钮时，确实下载的文件不包含预期的图表。当我尝试打开文件时，我从Mac收到的警告是该文件可能已损坏，或者是预览（或Acrobat）无法识别的形式。以下是我的代码的高度删节形式，其中包含有问题的部分。关于如何像在Shiny中下载图表一样，如何在Flexdashboard中下载图表的任何指导？

---
title: "My Model"
runtime: shiny
output:
    flexdashboard::flex_dashboard:
        theme: cerulean
        vertical_layout: scroll
    orientation: rows   
---

```{r global, include=FALSE}
library(shiny)
library(shinyBS)
library(shinyWidgets)
library(flexdashboard)
library(tidyverse)
library(readxl)
library(knitr)
library(RColorBrewer)
source("MLHS_Distributions.R")
source("interp.R")
source("tooltips.R")
```

```{r Inputs}
downloadButton("downlaodReport","Price Comparision Report")

downloadHandler(filename = function() {
     filename = paste0("ModelReport-", Sys.Date(), ".pdf")
   },
     content = function(file) {
         pdf(file, width = 8.5, height = 6.14)
         renderPrint({output$gg.prob.win.price()})
         dev.off()
   }
)
```

```{r priceProbWinChart}
renderPlot({
gg.prob.win.price <- --ggplot code--

plot(gg.prob.win.price)
})
```