Использование Flextable to Word для ответов на опросы в свободном тексте - PullRequest
Новая
       61

Использование Flextable to Word для ответов на опросы в свободном тексте

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

Я делаю некоторый анализ опроса, и я озадачен странной проблемой.

Когда я пытаюсь записать объект flextable в Word, я получаю пустой документ размером ~ 30 страниц. Ранее это работало в R и R Markdown без каких-либо проблем, и я не могу понять, почему это происходит.

Вот dput: 

df <- structure(list(Response = c("Comment from patron 1", "Comment from customer 2", 
"Comment from someone 3", "Comment from nobody 4", "Comment from patron 5", 
"Comment from customer 6", "Comment from someone 7", "Comment from nobody 8"
)), row.names = c(NA, -8L), class = c("tbl_df", "tbl", "data.frame"
))

Вот код, который я использую для записи в каталог, к которому я на 100% уверен, что у меня есть доступ: 

ft <- as.data.frame(df)
ft <- flextable(ft)
ft <- theme_zebra(ft)
ft <- autofit(ft)

doc <- read_docx()
doc <- body_add_flextable(doc, value = ft)
print(doc, target = "Doc2.docx")

Любые идеи, чтобы помочь решить или устранить эту проблему? Спасибо заранее за любую помощь!

1 Ответ

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

Как упомянул Дэвид Гохель, добавление аргумента ширины решило проблему: 

ft <- as.data.frame(df)
ft <- flextable(ft)
ft <- theme_zebra(ft)
ft <- autofit(ft)
**ft <- width(ft, width = 7)**

doc <- read_docx()
doc <- body_add_flextable(doc, value = ft)
print(doc, target = "Doc2.docx")
...