knitr::opts_chunk$set(echo = TRUE)
library(purrr) library(dplyr)
# integer 1 # character 'a'
vector_integer <- c(1:5) vector_character <- c('a', 'b', 'c', 'd', 'e') vector_logical <- rep(c(TRUE, FALSE), 5)
table_dataframe <- data.frame( integers = vector_integer, characters = vector_character, booleans = vector_logical )
list_example <- list( vector_integer = vector_integer, vector_character = vector_character, vector_logical = vector_logical, table_dataframe = table_dataframe )
map(list_example, ~ class) map_chr(list_example, class)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.