R/lab_import_checkr.R

In JayAchar/tbcleanr: tbcleanr: tools for cleaning TB datade

#' Confirm correct lab data import
#'
#' By default, readr parses the first 1000 rows to define column class.
#' However, lab data is frequently very long with more recent test types,
#' e.g. Hain MTBDRsl, only being available in more recent years. Thus, if not
#' specified within the guess_max option, variables may be miss classified on import
#' @param x data frame containing variables
#' @author Jay Achar \email{jay.achar@@doctors.org.uk}
#' @seealso \code{\link{tbcleanr}}
#' @importFrom assertthat assert_that
#' @export

lab_import_checkr <- function(x) {

  # check input
  assert_that(is.data.frame(x))

  UseMethod("lab_import_checkr", x)

}

#' Default method for lab_import_checkr()
#'
#' Allow data frames with unspecified object class to pass through
#' @inheritParams lab_import_checkr
#' @author Jay Achar \email{jay.achar@@doctors.org.uk}
#' @seealso \code{\link{tbcleanr}}
#' @export

lab_import_checkr.default <- function(x) {

  message("No lab object class detected: lab_import_checkr() not applied.")
  x
}