R/str.spectra.R

In ashiklom/PEcAnRTM: PEcAn functions used for radiative transfer modeling

#' Structure of `spectra` object
#'
#' @inheritParams wavelengths
#' @export
str.spectra <- function(spectra, ...) {
  wl <- wavelengths(spectra)
  wl_min <- min(wl)
  wl_max <- max(wl)
  n_spec <- ncol(spectra)
  n_wl <- nrow(spectra)
  string <- sprintf(
    "'spectra':\t %d obs, %d - %d nm (%d x %d)\n",
    n_spec,
    wl_min,
    wl_max,
    n_wl,
    n_spec
  )
  cat(string)
  invisible()
}