Заголовки таблицы RMD перепутаны при вязании на слово док - PullRequest
Новая
       77

Заголовки таблицы RMD перепутаны при вязании на слово док

0 голосов
/ 01 марта 2020

Я пытаюсь создать таблицы в Rmd с разными заголовками или заголовками. Пакет flextable имеет отличные опции, которые можно выводить в текстовые документы. Его функция add_header_lines() позволяет добавлять заголовок заголовка вверху каждой таблицы. Когда вывод Rmd переносится на новую страницу, add_header_lines() добавляет еще один заголовок заголовка в верхней части продолжения таблицы на следующей странице. Однако он захватывает аргументы, переданные любой таблице, которую вы сделали первой. Затем он продолжает оставаться верным для следующей таблицы, пока не будет достигнута следующая страница, где он снова вернется к первой (см. Рисунки).

Вот воспроизводимый пример, где все значения в таблице должны быть так же, как номер таблицы.

Есть идеи, как это исправить? Мне бы хотелось, чтобы он имел правильную подпись, но согласился бы просто избавиться от второй подписи после разрыва страницы. 

    ---
title: "Untitled"
author: "Anyone"
date: "2/29/2020"
output:
  word_document: default
  html_document:
    df_print: paged
  pdf_document: default
---

```{r setup, include=FALSE}
library(dplyr)
library(flextable)

knitr::opts_chunk$set(echo = FALSE,message=FALSE)

```


```{r Table1}
cars1<-cars*0+1
theme_zebra(regulartable(cars1))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 1: Model output for thing 1"))

```

```{r Table2}
cars2<-cars*0+2
theme_zebra(regulartable(cars2))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 2: Model output for thing 2"))

```

```{r Table3}
cars3<-cars*0+3
theme_zebra(regulartable(cars3))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 3: Model output for thing 3"))

```

```{r Table4}
cars4<-cars*0+4
theme_zebra(regulartable(cars4))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 4: Model output for thing 4"))

```

Word output page 1

Обратите внимание, что именно здесь находится разрыв страницы. Таблица с надписью «1» здесь должна быть действительно «2». Это будет продолжаться для каждой страницы, где остальная часть таблицы помечена знаком «1» (попробуйте код Rmd).

Word output page 2

1 Ответ

1 голос
/ 01 марта 2020

Это ошибка Word :) Он решает, что две таблицы без перерыва между ними - это одна и та же таблица. 

---
title: "Untitled"
author: "Anyone"
date: "2/29/2020"
output:
  word_document: default
---

```{r setup, include=FALSE}
library(dplyr)
library(flextable)

knitr::opts_chunk$set(echo = FALSE,message=FALSE)

```


```{r Table1}
cars1<-cars*0+1
theme_zebra(flextable(cars1))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 1: Model output for thing 1"))

```

blah

```{r Table2}
cars2<-cars*0+2
theme_zebra(flextable(cars2))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 2: Model output for thing 2"))

```

blah

```{r Table3}
cars3<-cars*0+3
theme_zebra(flextable(cars3))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 3: Model output for thing 3"))

```

blah

```{r Table4}
cars4<-cars*0+4
theme_zebra(flextable(cars4))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 4: Model output for thing 4"))

```

enter image description here

Насколько я знаю, это не то, что может быть решено с помощью flextable, но если есть вариант, я не в курсе из, я был бы счастлив объединить это.

...