R/check.R

In bcgov/wqbc: Tidy Water Quality Data and Calculate Thresholds for British Columbia

check_valid_expression <- function(x) {
  parse(text = x)
  invisible(NULL)
}

check_codes <- function(x) {
  chk::check_data(x,
                  list(Variable = "",
                       Code = "",
                       Units = lookup_units(),
                       EC_Code = c(1L, NA)),
                  key = "Code")
  chk::check_key(x, "Variable")
  invisible(NULL)
}

check_limits <- function(x, codes = TRUE) {
  variable <- if(!codes) "" else lookup_variables()
  chk::check_data(x,
                  list(Variable = variable,
                       Use = c("Freshwater Life", "Freshwater Life", "Freshwater Life"),
                       Term = c("Short", "Long", "Long"),
                       Condition = c("", NA),
                       UpperLimit = "",
                       Units = lookup_units(),
                       Statistic = c("mean", "median", "max")),
                  key = c("Variable", "Use", "Term", "Condition"))

  check_valid_expression(x$Condition)
  check_valid_expression(x$UpperLimit)
  invisible(NULL)
}