R/hy_paste_names.R

In r-hyperspec/hyperSpec: Work with Hyperspectral Data, i.e. Spectra + Meta Information (Spatial, Time, Concentration, ...)

.paste_names <- function(...) {
  if (nargs() == 1L & is.list(..1)) {
    dots <- ..1
  } else {
    dots <- list(...)
  }

  names <- names(dots)
  names <- sapply(
    names,
    function(x) {
      if (nchar(x) > 0L) {
        sprintf("%s = ", x)
      } else {
        ""
      }
    }
  )

  paste(names, dots, collapse = ", ", sep = "")
}