flexdashboard导航栏中的下载按钮

我在

导航栏右侧创建了一个下载按钮


我想将该按钮链接到
downloadHandler（）
函数，该函数将根据“report.Rmd”生成一个.pdf报告，其中包含仪表板的图表1。有人知道如何做到这一点吗

我试图在导航栏中创建一个闪亮的下载按钮，但它总是显示在它的正下方

这是应用程序
---
标题：“新冠病毒-19仪表板”
输出：
flexdashboard:：flex_仪表板：
方向：行
导航栏：
-{图标：“fa下载”，href:“#”，align:right}
社交：菜单
日期：“`r Sys.date（）`”
运行时间：闪亮
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（knitr）
图书馆（闪亮）
图书馆（tidyverse）
图书馆（高级特许）
mdc_c19%
过滤器（州==“佛罗里达”）%>%
过滤器（county==“Miami Dade”）%>%
过滤器（日期>=“2020-06-01”）
thmflexdashboard:：flexdashboard:
源代码：嵌入

需要在源代码出现在新行之前缩进（点击回车键），但我无法让它工作

哎呀，没关系，对不起。请不要理会。我看错了

    ---
    title: "COVID-19 Dashboard"
    output: 
       flexdashboard::flex_dashboard:
        orientation: rows
        navbar:
          - { icon: "fa-download", href: "#", align: right }
        social: menu
    date: "`r Sys.Date()`"
    runtime: shiny
    ---

    ```{r setup, include=FALSE}
    library(flexdashboard)
    library(knitr)
    library(shiny)
    library(tidyverse)
    library(highcharter)

    mdc_c19 <- read_csv("https://raw.githubusercontent.com/nytimes/covid-19-data/master/us- 
    counties.csv") %>% 
      filter(state == "Florida") %>% 
      filter(county == "Miami-Dade") %>% 
      filter(date >="2020-06-01" )

    thm <- 
      hc_theme(
        colors = c("#025930", "#F27B35", "#F24405", "#d4bf95", "#a2ad00", "#A2B1BD"),
        chart = list(
          backgroundColor = "transparent",
          style = list(fontFamily = "sans-serif")
        ),
        xAxis = list(
          gridLineWidth = 1
        )
      )
    ```


   ```{r download}
    # Add download handling
     output$downLink <- downloadHandler(
      filename =paste0("ModelReport-", Sys.Date(), ".pdf"),
      content = function(file) {
        to_save <- list(
           deaths = deaths()
        )
        readr::write_rds(to_save, "config_data.rds")
        rmarkdown::render("report.Rmd")
        #webshot::webshot("report.html", file = file)
    
      }
     )

Tab1
=====================================  

Row
-------------------------------------

### Chart 1


```{r}
deaths <- hchart(mdc_c19, "line", hcaes(x = date, y = deaths)) %>% 
   hc_add_theme(thm)
deaths
```

### Chart 2

```{r}
``` 

    ---
    title: "Dashboard Report"
    output:
      flexdashboard::flex_dashboard:
        orientation: rows
    ---


    ```{r}
    data <- readr::read_rds("config_data.RDS")
    data$deaths %>% print() 
    ```