R/check_data.R

In frictionlessdata/frictionless-r: Read and Write Frictionless Data Packages

#' Check data
#'
#' Check if an object is a non-empty data frame.
#'
#' @param data A data frame.
#' @return `data` invisibly or an error.
#' @family check functions
#' @noRd
check_data <- function(data) {
  if (
    !is.data.frame(data) ||
    dim(data)[1] %||% 0 == 0 ||
    dim(data)[2] %||% 0 == 0
  ) {
    cli::cli_abort(
      "{.arg data} must be a data frame containing data.",
      class = "frictionless_error_data_invalid"
    )
  }

  invisible(data)
}