R/preprocess-helpers.R

Defines functions is_bool is_numeric

is_numeric <- function(p) {
  type <- get_param(p, style = "type")
  if (is.na(type)) return(FALSE) else return(NUMERIC == type)
}

is_bool <- function(p) {
  type <- get_param(p, style = "type")
  if (is.na(type)) return(FALSE) else return(BOOL == type) 
}
data-science-made-easy/nicerplot documentation built on Nov. 3, 2024, 9:23 p.m.