R/utils.R

Defines functions list1 dropNulls

dropNulls <- function(x) {
  x[!vapply(x, is.null, FUN.VALUE = logical(1))]
}

list1 <- function(x) {
  if (length(x) == 1) {
    list(x)
  } else {
    x
  }
}
dreamRs/shinytreeview documentation built on July 3, 2024, 7:02 a.m.