R/format.R

In javierluraschi/pins: Pin, Discover and Share Resources

format_tibble <- function(data) {
  if (!is.data.frame(data)) return(data)

  if ("tibble" %in% installed.packages() && !identical(getOption("pins.tibble"), FALSE)) {
    as_tibble <- get("as_tibble", envir = asNamespace("tibble"))
    as_tibble(data)
  }
  else {
    data
  }
}