Как удалить столбцы списка без удаления столбцов, полученных из столбцов списка?

Question

Я пытаюсь получить данные о политических взносах от федерального правительства США ( Получить ключ API здесь , если хотите).

Я использую библиотеку tidyusafec, чтобы получить FE C данные. Фреймы данных имеют столбцы, которые являются списками. Я запустил cbind, чтобы развернуть один столбец списка, committee, в отдельные столбцы, в основном расширив его в сторону. Но когда я пытаюсь отбросить столбцы, которые являются типами списков, с which, он удаляет столбцы не из списка, полученные из committee. Как мне остановить это?

library(devtools)
install_github("stephenholzman/tidyusafec")
library(tidyusafec)

expenditures <- get_itemized_disbursements(
  api_key = "imeGsXUEaPPY9wCHh8SnP5Jrt3mr3hdlRXJkKt3V",
  min_date = "2019-10-01",
  recipient_city = "Miami Beach",
  two_year_transaction_period = 2020
)

# The 'committee' column is a list, so expand its keys into columns and insert its values into rows
expenditures <- cbind(
  expenditures, 
  do.call(
    rbind,
    expenditures$committee
  )
)

# Remove list columns
expenditures <- expenditures[,-which(sapply(expenditures, class) == "list")]