R/clean_df.R

In ropensci/scrubr: Clean Biological Occurrence Records

#' Compact data.frame
#'
#' @export
#' @param x Input data.frame
#' @examples
#' dframe(sample_data_1)
#' dframe(mtcars)
#' dframe(iris)
dframe <- function(x) {
  UseMethod("dframe")
}

#' @export
dframe.default <- function(x) {
  stop("no 'dframe' method for ", class(x), call. = FALSE)
}

#' @export
dframe.data.frame <- function(x) {
  tibble::as_tibble(x)
}

#' @export
dframe.dframe <- function(x) x