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文件中，并将其包含在body您的 flexdashboard之后，after_body在您的降价中使用：

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

Answer 2

你可以试试这个：

tags$footer( HTML("<footer><small><b>&copy; Manoj Kumar 2021.</b></small></footer>"), align="left", style="position:absolute; bottom:0; width:95%; height:50px; color: #000000; padding: 0px; background-color: transparent; z-index: 1000;")