R/check_bin.R

In PHSKC-APDE/rads: Assisted computation of King County public health data

#' Check to see if input implies a binning recode
#'
#'@param x character. Arbitrary character string to be checked for interpretation into binning.
#'@return logical
#'
#'@export
#'
check_bin = function(x){

  stopifnot(length(x) == 1)

  opt1 = substr(x,1,1) %in% c('[','(')
  opt2 = substr(x,nchar(x),nchar(x)) %in% c(')', ']')
  opt3 = grepl(',', x, fixed = T)

  if(grepl('-', x, fixed = T)){
    warning('detected a "-". Did you mean to use a ","? Ignore this unless you are expecting a binned recode.')
  }

  return(opt1 && opt2 && opt3)
}