r - 将数据库打印为文本

Question

我是 R Markdown 新手。 我有一个数据库如下:

text <- c("aaa","bbb", "ccc")
year <- c(2003,2004,2005)
author <- c("MV", "RV", "MV")
db <- as.data.frame(cbind(text, year, author))

我想打印一个要点，如下所示:

• aaa

  2003, MV

• bbb

  2004, RV

• ccc

  2005, MV

我尝试如下:

- `r db[1, 1]`

- `r db[1, 2]`
- `r db[1, 3]`

- `r db[2, 1]`

- `r db[2, 2]`
- `r db[2, 3]`

- `r db[3, 1]`

- `r db[3, 2]`
- `r db[3, 3]`

有没有办法自动完成而不列出每一行？

Answer 1

您可以编写 R 代码将数据打印为 Markdown 文本，例如使用 glue :

library(glue)

text <- c("aaa","bbb", "ccc")
year <- c(2003,2004,2005)
author <- c("MV", "RV", "MV")
db <- as.data.frame(cbind(text, year, author))

glue_data(
  db,
  "* {text}  ",
  "{year} {author}",
  .sep = "\n"
)
#> * aaa  
#> 2003 MV
#> * bbb  
#> 2004 RV
#> * ccc  
#> 2005 MV

如果您使用选项 results='asis' 将其放入 RMarkdown block 中，生成的 Markdown 将包含在您的 knitted 文档中。