# --- flexible writing of excel ----------------------------------------------

#' @title pasting nonempty elements
#'
#' @param ...  = ellipsis argument
#'
#' @param sep = seperator
#'
#' @export
paste_nonempty <- function(..., sep = " ") {
  str <- c(...)
  paste(str[str != ""], collapse = sep)
}
