R/utils_esquisse.R

Defines functions drop_list_columns

drop_list_columns <- function(.data) {
  stopifnot(is.data.frame(.data))
  subset(.data, select = !(sapply(.data, typeof) == "list"))
}
asiripanich/emdash documentation built on Sept. 23, 2021, 7:20 p.m.