r - 如何在使用 Shiny Flexdashboard 生成的页面中添加页脚

Question

我有以下RMarkdown FlexDashboard文档:

---
title: "Some title"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Some chart

```{r}
plot(faithful)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart 2

```{r}
```   

### Chart 3

```{r}
```

如何放置跨页面的页脚并包含以下内容？

tags$div( HTML("<footer><small>&copy; Copyright 2017, MyCompany Co.,Ltd</small></footer>"))   

Answer 1

您可以将页脚的 HTML 放入 footer.html 文件中，并使用 after_body 将其包含在 Flexdashboard 的 body 后面你的 Markdown :

---
title: "Some title"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    includes:
      after_body: footer.html
---