Ошибка? при определении идентификатора он говорит за пределами, когда это не должно

Question

layout_properties ( x = my_pres, layout = "Comparison", master = "Office Theme") имя имени master_name тип id ph_label ph offx offy 3 Тело сравнения темы Office 13 Текстовый заполнитель 12 5.0625000 4.8298611 9 Тело сравнения офисных тем 4 Заполнитель содержимого 3 0,3927734 1.7009799 11 Тело сравнения офисных тем 11 Заполнитель текста 10 0.3923611 4.8290453 12 Тело сравнения офисных тем 6 Заполнитель контента 5 5.0625000 1.7009799 15 Тело сравнения офисных тем 5 Текст заполнитель 4 5.0625011 1.2482754 16 Тело сравнения офисных тем 3 3 заполнителя текста 2 0.3927734 1.2583486 20 Сравнение офисных тем d Заполнитель 6 0.3927734 5.2135422 25 Сравнение темы Office ftr 8 Заполнитель нижнего колонтитула 7 3.3125000 5.2135422 30 Сравнение темы Office sldNum 9 Номер слайда Заполнитель 8 7.3553718 5.2135422 34 Название сравнения темы Office 2 Название 1 Название 1 0.392773

Не удалось найти хороший способ форматирования, но, как вы можете видеть, тело типа имеет идентификатор 13.

Теперь, когда я пытаюсь закодировать это в:

GSK_Comparison <- function(PP,title,sub1,sub2,footer, table1,table2){
  PP <- PP %>% 
    add_slide(layout = "Comparison", master = "Office Theme") %>%
    ph_with_text(type = "title", str = title) %>%
    ph_with_text(type = "body",index = 11, str = sub1) %>%
    ph_with_flextable(value = table1,type= "body",index = 4) %>%
    ph_with_text(type = "body",index = 13, str = sub2) %>%
    ph_with_flextable(value = table2, type = "body", index = 6) %>%
    ph_with_text(type = "dt", str = format(Sys.Date())) %>%
    ph_with_text(type = "ftr",str = footer)
}

Я получаю следующее сообщение об ошибке: Ошибка в слайде $get_location(тип = тип, индекс = индекс): тело может иметь только 6 элементов, но индекс установлен в 11

Но не уверен, почему это происходит, так как ясно, есть идентификаторы 11 и 13 для типа тела

Заранее спасибо!