小编laB*_*ouz的帖子

我在.navbar-right.

我想将该按钮链接到downloadHandler()将基于包含仪表板图表 1 的“report.Rmd”生成 .pdf 报告的函数。有谁知道如何做到这一点？

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

这是应用程序

    ---
    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 …