Подгоните Flextable к размеру слайда в PowerPoint с офицером

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

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

Код ниже.

library(officer)
library(rvg)
library(flextable)
library(tidyverse)
library(data.table)


pColor <- "#3c5cb0"
std_border = fp_border(color="gray")

outSatTbl <- flextable(head(iris, 19))

outSatTbl <- 
  outSatTbl %>%
  bg(bg = pColor, part = "header") %>% 
  color(color = "white", part = "header") %>%
  merge_h(part = "header") %>%
  add_header_lines(values = "Demo Table") %>%
  align(align = "center", part = "header") %>%
  align(align = "center", part = "body") %>%
  hline(part="body", border = std_border ) %>%
  autofit()


# ---------- Get PowerPoint template and initiate ---------- #


setwd("C:/.../WorkingFolder")

demo <- read_pptx("Rtest.pptx")


# ---------- Add Inpatient table to Power Point ----------- #

demo  <- add_slide(demo , layout = "Title and Content", master = "Theme1") %>%
  ph_with(outSatTbl, location = ph_location_type(type = "body"), use_loc_size = T) %>%
  


print(mho, target = "first_example.pptx")

Это делает стол слишком большим. Я могу изменить его размер, и таблица по-прежнему выглядит великолепно, просто пытаюсь найти то, что мне не хватает.