R/lst_col_na_to_empty.R

Defines functions lst_col_na_to_empty

lst_col_na_to_empty <- function(x) {
  sapply(x, \(.x) length(.x) == 1L && is.na(.x)) |>
    dplyr::if_else(true = list(character()), false = x)
}

Try the mgi.report.reader package in your browser

Any scripts or data that you put into this service are public.

mgi.report.reader documentation built on Sept. 11, 2024, 8:41 p.m.