在Rmd中的htmlTable - 轉換爲Word docx

Question

我有以下Rmd文件，它生成一個html文件，然後我將其複製粘貼到docx文件（對於協作者）中。以下是我想知道如何處理表格的問題，但我無法在短片中找到答案here：

答：我想知道如何刪除在Word中插入的空白列CGROUP 1和CGROUP之間2.

B.我想知道如何設置與該行名稱列的寬度（「第1行」，...）

C.我怎樣才能改變字體和字體大小？我嘗試以下this，但它不工作有輸出：word_document與htmlTable（）

D.爲了方便轉換到Word，有沒有辦法指定分頁符？風景取向？

非常感謝！

--- 
title: "Example" 
output: 
    Gmisc::docx_document: 
    fig_caption: TRUE 
    force_captions: TRUE 
--- 

Results 
======= 

```{r, echo = FALSE} 
library(htmlTable) 
library(Gmisc) 
library(knitr) 
mx <- 
    matrix(ncol=6, nrow=8) 
rownames(mx) <- paste(c("1st", "2nd", 
         "3rd", 
         paste0(4:8, "th")), 
         "row") 
colnames(mx) <- paste(c("1st", "2nd", 
         "3rd", 
         paste0(4:6, "th")), 
         "hdr") 

for (nr in 1:nrow(mx)){ 
    for (nc in 1:ncol(mx)){ 
    mx[nr, nc] <- 
     paste0(nr, ":", nc) 
    } 
} 

htmlTable(mx, 
      cgroup = c("Cgroup 1", "Cgroup 2"), 
      n.cgroup = c(2,4)) 

``` 

Answer 1

的造型似乎是關閉的行名和它現在固定在1.10.1版本，您可以下載使用devtools包：devtools::install_github("gforge/htmlTable", ref="develop")

關於造型的功能可以讓幾乎任何CSS-style你可以成像。不幸的是，它需要複製到Word中，並且這個功能並不是微軟最重要的。您可以輕鬆地適應您例如，以適應使用css.cell的變化需要選用：

library(htmlTable) 
library(knitr) 
mx <- 
    matrix(ncol=6, nrow=8) 
rownames(mx) <- paste(c("1st", "2nd", 
         "3rd", 
         paste0(4:8, "th")), 
         "row") 
colnames(mx) <- paste(c("1st", "2nd", 
         "3rd", 
         paste0(4:6, "th")), 
         "hdr") 

for (nr in 1:nrow(mx)){ 
    for (nc in 1:ncol(mx)){ 
    mx[nr, nc] <- 
     paste0(nr, ":", nc) 
    } 
} 

css.cell = rep("font-size: 1.5em;", times = ncol(mx) + 1) 
css.cell[1] = "width: 4cm; font-size: 2em;" 
htmlTable(mx, 
      css.cell=css.cell, 
      css.cgroup = "color: red", 
      css.table = "color: blue", 
      cgroup = c("Cgroup 1", "Cgroup 2"), 
      n.cgroup = c(2,4)) 

有沒有辦法消除由cgroup中產生的空列。這是桌子看起來不錯的必要條件，也是有意識的設計選擇。

關於分頁符，我懷疑是否有任何優雅的方式來做到這一點。替代方案可能是ReporteRs包。我自己並沒有使用它，但它與Word更接近，可能是一個解決方案。