如何在R中导出HTML表格并控制线条边界？

Question

R中是否有任何函数允许导出HTML表作为R Markdown或相关编织文档的一部分,并允许对表格边界进行详细控制？

例如,想象一下像这样的矩阵:

x <- matrix(c("", "M", "F", "Good", 
"23", "17", "Bad", "23", "4"), nrow=3, byrow=TRUE)

什么命令将输出具有如下功能的正确HTML表:

       --------
       M     F
---------------
 Good  23    17
---------------
 Bad   23    4
---------------

Answer 1

你可以尝试下,重命名为发展我真的很年轻包迎合它试图打印中的R对象pandoc降价格式.

懒惰的例子:

> x <- matrix(c("", "M", "F", "Good", "23", "17", "Bad", "23", "4"), nrow=3, byrow=TRUE)
> pandoc(x)

+------+------+------+
|      | M    | F    |
+------+------+------+
| Good | 23   | 17   |
+------+------+------+
| Bad  | 23   | 4    |
+------+------+------+

我正在研究一些函数,导致其他表语法,如"简单表"或"多行表"(参见Pandoc的自述文件).

PS:您还可以使用(尚未记录的)Pandoc引用类轻松地将此表导出为HTML(除了docx,odt等其他格式),如:

> myReport <- Pandoc$new()
> myReport$add(x)
> myReport

Anonymous's report
==================
 written by *Anonymous* at *Sun May 27 21:04:22 2012*

  This report holds 1 block(s). 

---

+------+------+------+
|      | M    | F    |
+------+------+------+
| Good | 23   | 17   |
+------+------+------+
| Bad  | 23   | 4    |
+------+------+------+


---

Proc. time:  0.009 seconds. 

> myReport$format <- 'html'
> myReport$export()

Exported to */tmp/pander-4e9c12ff63a6.[md|html]* under 0.031 seconds.

PS秒:你也可以brew(像sweave)一个文本文档,用Pandoc.brew它可以自动将你的<%=...%>标签从内部R对象转换为Pandoc降价格式.简短的例子(当然这也适用于文件输入,现在我只是brew一个R字符向量):

> t <- '# Title
+ 
+ A nice matrix:
+ 
+ <%=matrix(c("", "M", "F", "Good", "23", "17", "Bad", "23", "4"), nrow=3, byrow=TRUE)%>
+ 
+ Bye-bye!'
> 
> Pandoc.brew(text=t)
# Title

A nice matrix:

+------+------+------+
|      | M    | F    |
+------+------+------+
| Good | 23   | 17   |
+------+------+------+
| Bad  | 23   | 4    |
+------+------+------+

Bye-bye!