R/getBg.R

In alphonse/aeRo: Tools for Atmospheric Aerosol Optics

getBg <- function(X, cols = 2:5, names = c('bg406_mV', 'bg532_mV', 'bg662_mV', 'bg785_mV'), ...) {
  if (missing(...)) {
    period <- 1800
  }
  else dots <- list(...)

  if ('period' %in% names) { period <- dots[['period']] }
  else period <- 1800

  apply(X[, cols], 2, getBg.waves, ...) %>%
    fillToLength(period = period) %>%
    stats::setNames(names)
}