Высота строки с флештабелем и офицером - PullRequest
Новая
       31

Высота строки с флештабелем и офицером

0 голосов
/ 03 августа 2020

У меня новый компьютер (читай: новые версии всего, включая Office 2016). Я создал следующий код на своем предыдущем компьютере, и все работало нормально: 

...
control_table <- regulartable(data = data) %>%
  theme_box() %>%
  rotate(rotation = "btlr", part = "header") %>%
  align(align = "left", part = "body") %>% 
  set_header_labels(Var1 = " " ) %>% 
  align(align = "left", part = "header") %>%
  height(height = 3, part = "header") %>%
  width(width = 0.3) %>%
  width(j = 1, width = 3.5) 

doc <- doc %>%
  cursor_reach("The following table indicates the reports") %>%
  body_add_flextable(control_table, align = "left")
...

теперь с моим новым компьютером высота строки заголовка не переводится в документ Word. dim(control_table) дает правильную высоту строки, но высота строки заголовка не отображается в текстовом документе. Что мне не хватает?

1 Ответ

0 голосов
/ 19 августа 2020

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

library(flextable)
library(officer)
library(magrittr)

control_table <- flextable(data = head(iris)) %>%
  theme_box() %>%
  rotate(rotation = "btlr", part = "header") %>%
  align(align = "left", part = "body") %>% 
  set_header_labels(Var1 = " " ) %>% 
  align(align = "left", part = "header") %>%
  height(height = 2, part = "header") %>%
  hrule(i = 1, rule = "exact", part = "header")


doc <- read_docx() %>%
  body_add_flextable(control_table, align = "left") %>% 
  print(target = "example.docx")

введите описание изображения здесь

...