Установка высоты строки в таблице, созданной с помощью flextable, вставленной в PowerPoint с помощью Officer

Я нарисовал несколько фреймов данных с текстом внутри, в каждой ячейке которого присутствуют разрывы строк, фрейм данных преобразуется в flextable, а затем вставляется в слайд PowerPoint с помощью officer. Я обнаружил, что высота строки слишком велика, я попытался использовать функцию height_all в flextable, чтобы уменьшить высоту строки, но она не работает. Пожалуйста, найдите образец кода, как показано ниже:

library(officer)
library(dplyr)

pptx.output.st00 <- read_pptx()

data(iris)
data.df <- head(iris) %>%
  as_tibble %>%
  mutate_all(.,as.character) %>%
  mutate_all(.,~paste0(.,'\ntesting'))

pptx.tbl <- data.df %>%
  flextable %>%
  height_all(height = 0.01) # this line is not working

pptx.output.st01 <- pptx.output.st00 %>%
  add_slide(.,layout = 'Title and Content',master = 'Office Theme') %>%
  ph_with(.,value=pptx.tbl,location=ph_location(type='body'))

print(pptx.output.st01,'presentation.output.pptx')

В настоящее время мне нужно вручную изменить параметры абзаца для таблицы, как показано на снимке экрана ниже:

Есть ли способ в officer из flextable установить высоту строки для таблицы? Спасибо!