Shiny 在flexdashboard中下载图表

我正在尝试使用flex仪表板输入列中的下载按钮下载呈现为*.pdf的图表集合。整个仪表板工作正常，下载按钮渲染正常；但是，当我单击“下载”按钮时，确实下载的文件不包含预期的图表。当Mac试图打开文件时，我收到的警告是文件可能已损坏，或者预览（或Acrobat）无法识别该表单。以下是我的代码的高度编辑形式，其中包含有问题的部分。关于如何在flexdashboard中下载图表，以及如何在Shiny中下载图表，有什么指导吗

---
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)
})
```

---
标题：“我的模特”
运行时间：闪亮
输出：
flexdashboard:：flex_仪表板：
主题：蔚蓝
垂直布局：滚动
方向：行
---
```{r全局，include=FALSE}
图书馆（闪亮）
图书馆（shinyBS）
图书馆（shinyWidgets）
库（flexdashboard）
图书馆（tidyverse）
图书馆（readxl）
图书馆（knitr）
图书馆（RColorBrewer）
来源（“MLHS_Distributions.R”）
来源（“interp.R”）
来源（“tooltips.R”）
```
```{r输入}
下载按钮（“下载报告”、“价格比较报告”）
downloadHandler（文件名=函数（）{
filename=paste0（“ModelReport-”，Sys.Date（），“.pdf”）
},
内容=函数（文件）{
pdf（文件，宽度=8.5，高度=6.14）
renderPrint（{output$gg.prob.win.price（）}）
发展主任（）
}
)
```
```{r priceProbWinChart}
渲染图({
gg.prob.win.price您可以使用
ggsave
保存ggplots在flexdashboard中是否可以执行此操作？我似乎找不到任何关于如何实现此操作的文档。