R/utils.R

In medewitt/tidyqwi: A Convenient API for Accessing United States Census Bureau's Quarterly Workforce Indicator

# Some utility functions

.onLoad <- function(libname, pkgname) {
  utils::data("industry_labels", package=pkgname, envir=parent.env(environment()))
  utils::data("owner_codes", package=pkgname, envir=parent.env(environment()))
  utils::data("qwi_var_names", package=pkgname, envir=parent.env(environment()))
  utils::data("state_info", package=pkgname, envir=parent.env(environment()))
  utils::data("geo_codes", package=pkgname, envir=parent.env(environment()))
}

# Helper for trycatching in the code
#'@title show_condition
#'@param code the code whose message you wish to interpret
#'@export
show_condition <- function(code) {
  tryCatch(code,
           error = function(c) "error",
           warning = function(c) "warning",
           message = function(c) "message"
  )
}



globalVariables({
  c("geo_codes", "geo_level", "state_fips")
})