R/utils.R

In sumprain/dbfrontendR: Package to design database front end

# id generator
#
#' @export
id_gen <- function(...) {
  l <- vapply(list(...), function(x) as.character(x), character(1L))
  paste(l, collapse = "__")
}

# remove NULL from list
#' @export
compact <- function(x) {
  retx <- vapply(x, function(y) return(is.null(y)||is.na(y)), logical(1L))
  return(x[!retx])
}