Как автоматически обновить таблицу таблиц / рисунков с пакетом офицера R - PullRequest
Новая
       7

Как автоматически обновить таблицу таблиц / рисунков с пакетом офицера R

0 голосов
/ 30 октября 2018

У меня проблемы с автоматическим обновлением таблицы таблиц, чтобы показать фактический номер таблицы при использовании пакета офицера R. Я пробовал с примером кода пакета: 

library(magrittr)
library(officer)
x <- officer::read_docx(Template) %>% # Make sure to set your template file
  body_add_par("Time is: ", style = 'Normal') %>%
  slip_in_seqfield(
      str = "TIME \u005C@ \"HH:mm:ss\" \u005C* MERGEFORMAT",
      style = 'Subtle Emphasis') %>%

  body_add_par(" - This is a tbl title", style = 'caption') %>%
  slip_in_seqfield(str = "SEQ Table \u005C* arabic",
                   style = 'Subtle Emphasis', pos = "before") %>%
  slip_in_text("Table ", style = 'Subtle Emphasis', pos = "before") %>%

  body_add_par(" - This is another tbl title", style = 'caption') %>%
  slip_in_seqfield(str = "SEQ Table \u005C* arabic",
                   style = 'Subtle Emphasis', pos = "before")  %>%
  slip_in_text("Table ", style = 'Subtle Emphasis', pos = "before") %>%
  body_add_par("This is a symbol: ", style = "Normal") %>%
  slip_in_seqfield(str = "SYMBOL 100 \u005Cf Wingdings",
                   style = 'Subtle Emphasis')

print(x, target = "TestOut.docx")

Но таблица таблиц в результирующем текстовом документе просто показывает это (не вижу фактического числа, только пробел): 

Table  - This is a tbl title................................1
Table  - This is another tbl title..........................1

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

...