R/utils.R

In shunsambongi/shuny: Shiny things

#' @export
classNames <- function(...) {
  nms <- unlist(rlang::list2(...))
  nms <- unlist(lapply(nms, strsplit, "\\s", perl = TRUE))
  paste(nms[!duplicated(nms)], collapse = " ")
}

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