R/check_rclass.R

Defines functions check_rclass

check_rclass <- function(rclass = NULL) {
  msg <- "rclass must be a character object
  with a value of either: json, list, tibble, data.frame, vector"
  if (is.null(rclass)) stop(msg)
  if (!(rclass %in% c("json", "list", "tibble", "data.frame", "vector"))) {
    stop(msg)
  }
  return(invisible(TRUE))
}
CIP-RIU/brapi documentation built on Oct. 17, 2019, 2 p.m.