如何使用 rmarkdown 和 pandoc 在表格中编写(项目符号)列表

问题描述:

我希望使用 rmarkdownknitrpander 在 PDF 文档中创建表格.该表应该与下面显示的表 1 几乎相同,只是星号应该是项目符号.仅使用上面列出的 R 库就可以做到这一点吗?

I am looking to create a table in a PDF document using rmarkdown, knitr and pander. The table should be nearly identical to Table 1 shown below, except the asterisks should be bullets. Is this at all possible using only the R libraries listed above?

这是我生成 PDF 文档(以及上表)的代码:

Here is my code to produce the PDF document (and thus the table above):

---
title: "xxx"
author: "xxx"
date: "xxx"
output:
  word_document: default
  pdf_document:
    fig_height: 4
    fig_width: 10
    highlight: tango
geometry: margin=3cm
---

```{r global_options, include=FALSE, echo=FALSE}
require(knitr)
opts_chunk$set(fig.width=8, fig.height=4, fig.path='figs/', dpi=500,
               echo=FALSE, warning=FALSE, message=FALSE, results='hide')
```

```{r pandoc_options, include=FALSE, echo=FALSE}
require(pander)
panderOptions('digits', 3)
panderOptions('round', 3)
panderOptions('keep.trailing.zeros', TRUE)
panderOptions('keep.line.breaks', TRUE)
```

```{r concepts, echo=FALSE}
mytable = data.frame(Concept = c("Decoded", "XXX"), 
                     Description = c(" 
                                     \\\n
                                     \\\n * Founded in 2011 
                                     \\\n * * Offers workshops to take people from zero skills and knowledge in programming through to coding a multi-platform app using HTML, CSS and Javascript in a single day 
                                     \\\n * * Rave reviews", "XXX"), 
                     Website = c("http://decoded.com/uk/","XXX"))

```

``` {r concepts_descriptions, results = 'asis'}
pandoc.table(mytable, style = "multiline", justify = "left", caption = "Concepts and Descriptions")
```

编辑 @Roman 谢谢你 - 但是如果我简单地替换,我会得到以下不太漂亮的表格(句号"项目符号,格式不正确)......最重要的事情对我来说,现在是列表附带的格式.谢谢!

EDIT @Roman thanks for that - however if I simply substitute, I get the following not-so-beautiful table ("period" bullets, poor formatting) ... The most important thing for me now is the formatting that comes with lists. Thanks!

默认的 multiline 样式表不支持 单元格内的任意块元素,但 grid 表可以.所以这是可能的,只要确保:

The default multiline style table does not support arbitrary block elements inside of the cells, but the grid tables does. So this is possible, just make sure:

  • 你使用grid样式
  • 将单元格与left
  • 对齐
  • 在列表元素的末尾使用硬换行符并启用 keep.line.break

快速演示:

mytable = data.frame(
    Concept     = c("Decoded", "XXX"),
    Description = c("* Founded in 2011\ \n* Offers workshops to take people from zero skills and knowledge in programming through to coding a multi-platform app using HTML, CSS and Javascript in a single day", "XXX"),
    Website     = c("http://decoded.com/uk/","XXX"))

pander::pander(mytable, keep.line.breaks = TRUE, style = 'grid', justify = 'left')

通过 pandoc 生成格式良好的 HTML 列表:

Resulting in a nicely formatted HTML list via pandoc:

<table>
<colgroup>
<col width="13%" />
<col width="43%" />
<col width="30%" />
</colgroup>
<thead>
<tr class="header">
<th align="left">Concept</th>
<th align="left">Description</th>
<th align="left">Website</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td align="left">Decoded</td>
<td align="left">* Founded in 2011 * Offers workshops to take people from zero skills and knowledge in programming through to coding a multi-platform app using HTML, CSS and Javascript in a single day</td>
<td align="left">http://decoded.com/uk/</td>
</tr>
<tr class="even">
<td align="left">XXX</td>
<td align="left">XXX</td>
<td align="left">XXX</td>
</tr>
</tbody>
</table>

但也适用于 PDF: