Проблема с заданием flextable

Я хочу сделать таблицу корреляций и вывести ее в .docx, предварительно перенеся названия строк в столбцы и транспонировав. Однако происходит ошибка, flextable думает, что r (часть листа), которую я задаю как датафрейм и если запускать построчно, то она даже в среде датафрейм, не датафрейм, и не дает сделать ее flextable.

cor.dt <- corr.test(cor.dt[, 1:3], cor.dt[, 4:52]) 
# получается List of 14

r_corr <- as.data.frame(cor.dt[["r"]]) %>% # делаем датафрейм
  mutate(across(everything(), ~ round(., 2))) %>%  # округляем значения
  rownames_to_column() %>% # называем строки
  t() %>% # транспонируем
  flextable() %>% # делаем таблицу пригодной к экспорту
  theme_apa() %>% # оформляем по стандарту APA
  colformat_num(digits = 2)  # форматируем отображение

Ошибка:

Ошибка в flextable(.) : is.data.frame(data) не TRUE