R/get_tibble_types.R

In jr-packages/jrTidyverse: Jumping Rivers: Getting to Grips with the Tidyverse

#' Return a tibble with different types
#' @importFrom stats lm
#' @importFrom utils data
#' @importFrom tibble tibble
#' @importFrom lubridate ymd
#' @export
get_tibble_types = function() {
  tmp = new.env()
  data(GoT, package = "jrTidyverse", envir = tmp)
  tibble::tibble(a = 1L, b = 1.0, c = "1", d = factor("1", levels = 1:2),
                 e = lubridate::ymd("2018-02-20"),
                 f = Sys.time(),
                 g = list(lm(Audience ~ Season, data = tmp$GoT)))
}