In rubenarslan/codebook: Automatic Codebooks from Metadata Encoded in Dataset Attributes

knitr::opts_chunk$set(warning = T, message = T)

Load

library(codebook)
library(dplyr)

library(formr)
formr_connect(keyring = "formr_org_ruben")
results = formr::formr_results("quiz_chapter_1", compute_alphas = F, plot_likert = F, quiet = T)

results = results %>% filter(!duplicated(session)) # %>% filter(row_number() < 200) %>% select(1:50)
rm(credentials)
options(device = function(file, width = 7, height = 7, ...) {
  cairo_pdf(tempfile(), width = width, height = height, ...)
})
# ?Cairo::CairoPNG

# dont cache this chunk
library(ggplot2)
theme_set(theme_bw())

knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(error = TRUE, dev = "CairoPNG")
# library(future)
# plan(multicore(workers = 3))
# plan(sequential)

codebook(results)

rubenarslan/codebook documentation built on Dec. 25, 2024, 2 p.m.