R Shiny App：用于下载代码的按钮

Question

例如，我知道代码可以与.app一起嵌入.rmd中，如下所示：

title: Flex Dashboard
author: Yeshy
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    self_contained: true
    social: ["twitter", "facebook"]
    #logo: Science1.JPG
    #favicon: favicon.png
    source_code: embed
runtime: shiny

输出哪个按钮以访问整个.rmd代码

但是有没有一种方法可以通过按钮共享/下载闪亮应用的代码？