Напишите несколько описаний по отдельным листам в книге Excel, используя openxlsx

У меня есть большой фрейм данных, который я суммирую несколькими способами, используя describeBy из библиотеки psych следующим образом:

library(tidyverse)
library(openxlsx)
library(psych)
.
.
.
 # Describe by Region
  lst1 <- describeBy(df[QUESTIONS], df[REGION_DESCRIPTOR])

  # Describe by Doctor
  lst2 <- describeBy(df[QUESTIONS], df[CARE_DESCRIPTOR])

Затем я создаю новую книгу

  wb = createWorkbook()

и начните пытаться записать в него lst1, lst2,...., по одному элементу на лист:

  addWorksheet(wb, REGION_DESCRIPTOR)
  writeData(wb, REGION_DESCRIPTOR, lst1)

  addWorksheet(wb, CARE_DESCRIPTOR)
  writeData(wb, CARE_DESCRIPTOR, lst2)

К сожалению, я получаю сообщение об ошибке:

Error in as.data.frame.default(x, stringsAsFactors = FALSE) : 
  cannot coerce class ‘c("psych", "describeBy")’ to a data.frame

Как я могу записать каждый объект describeBy на лист, используя openxlsx? Я пробовал использовать writexl, и хотя он работает, меня не устраивает тот факт, что он записывает каждую сводку, сгенерированную describeBy, на другой рабочий лист. Поскольку у меня есть около дюжины describeBy, каждая с 3-5 категориями, это быстро становится громоздким.

Заранее спасибо за вашу помощь

Томас Филипс