Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) library(dplyr) library(tidyr) library(purrr) requireNamespace("hms", quietly = TRUE)
library(tibble)
This vignette shows an overview of known data types and their abbreviations, and their origin.
For example, <int>
in the header of a column indicates an integer column, and <chr>
denotes a character column.
library(tidyverse) library(tidymodels) library(vctrs) library(pillar) all_methods <- c("vec_ptype_abbr", "vec_ptype_full", "type_sum") %>% map(methods) %>% map(as.character) %>% map(~ gsub("^.*[.]", "", .x)) %>% unlist() %>% unique() set_names(rep_along(all_methods, list("")), all_methods) %>% dput()
data <- list( "Atomic" = rlang::quos( logical = TRUE, integer = 1L, double = 1.5, character = "A", complex = 1i, raw = as.raw(1), list = list(1), "named list" = list(a = 1) ), "Built-in objects" = rlang::quos( factor = factor("A"), ordered = ordered("a"), Date = Sys.Date(), POSIXt = Sys.time(), difftime = vctrs::new_duration(1) ), "Objects from other packages" = rlang::quos( hms = hms::hms(1), integer64 = bit64::as.integer64(1e10), blob = blob::blob(raw(1)) ), "Data frames" = rlang::quos( data.frame = data.frame(a = 1), tbl_df = tibble(a = 1) ), "Unchanged" = rlang::quos( AsIs = I(1L) ), "vctrs types" = rlang::quos( unspecified = vctrs::unspecified(1), vctrs_list_of = vctrs::list_of(c(1L)), vctrs_vctr = vctrs::new_vctr(1L), vctrs_partial_factor = vctrs::partial_factor(letters), vctrs_partial_frame = vctrs::partial_frame(a = 1) ), "Language objects" = rlang::quos( "function" = function() NULL, symbol = quote(a), expression = parse(text = "a <- 1\nb<- 2"), quosures = rlang::quos(a = 1) ) )
tbl <- data %>% map(unclass) %>% map(enframe, "Data type", "Expression") %>% enframe("Class", "data") %>% unnest(data) %>% mutate(Example = map_chr(Expression, rlang::as_label)) %>% mutate(Value = map(Expression, rlang::eval_tidy)) %>% select(-Expression) %>% mutate(Class = if_else(Class == lag(Class, default = ""), "", Class)) %>% mutate("Column header" = map_chr(Value, type_sum))
tbl %>% select(-Value) %>% mutate(Example = paste0("`", Example, "`")) %>% knitr::kable(escape = FALSE)
The following overview contains example values for each type:
tbl %>% select(`Data type`, `Value`) %>% filter(map_lgl(Value, vctrs::vec_is)) %>% deframe() %>% as_tibble() %>% glimpse()
The column header is obtained by calling pillar::type_sum()
on the column.
This is an S3 method that can be overridden,
but most of the time it is more useful to override vctrs::vec_ptype_abbr()
:
pillar:::type_sum.default
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.