knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
knitr::opts_chunk$set(warning = TRUE, message = TRUE, echo = FALSE, error = TRUE) library(codebook) library(dplyr) data("bfi", package = 'codebook') bfi <- bfi %>% select(-starts_with("BFIK_extra"), -starts_with("BFIK_agree"), -starts_with("BFIK_open"), -starts_with("BFIK_neuro"), BFIK_neuro_2R) bfi2 <- bind_rows(bfi, bfi %>% mutate(created = created + 1e7)) bfi2 <- rescue_attributes(bfi2, bfi) bfi <- bfi2 set.seed(1) bfi$age <- rpois(nrow(bfi), 30) library(ggplot2) theme_set(theme_dark())
codebook(bfi)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.