R/ExternalCal_funcs.R

In Faskally/loggercal: Estimation of Calibration Equations for Temperature Data Loggers

#' Add together two numbers.
#'
#' Description
#'
#' @param dirname The directory containing the UKAS calibration files.
#' @return The sum of \code{x} and \code{y}.
#' @export
#' @importFrom utils read.csv
readExternalCal <- function(dirname) {

  # get all files in the directory
  fnames <- list.files(dirname, full.names = TRUE)

  data <- lapply(fnames, function(x) {
    out <- read.csv(x, skip = 1)
    names(out)[1:2] <- c("control", "cal")
    out
  })

  SN <- sapply(fnames, function(x) paste(read.csv(x, nrows = 1, header = FALSE)[[2]]))
  SN <- unname(SN)

  names(data) <- SN

  # report files read to user
  message("Calibration file summary\n\n",
          "  Current working directory:\n\t", getwd(), "\n",
          "  Files read:\n\t",
          paste(path.expand(fnames), collapse = "\n\t"))

  out <- list(SN = SN, data = data)
  class(out) <- "ExternalCal"
  out
}





#' Add together two numbers.
#'
#' Description
#'
#' @param x A number.
#' @param ... Numeric, complex, or logical vectors.
#' @return The sum of \code{x} and \code{y}.
#' @export
print.ExternalCal <- function(x, ...) {
  cat("\nExternal calibration serial numbers:\n")
  # date
  # number of loggers
  # number of total observations (nrow(data))
  # number of concurent observations
  # calibration logger??
  print(x $ SN)
}