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

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

Load

source("~/research/routine_and_sex/.passwords.R")

library(codebook)
library(dplyr)

library(formr)
formr::formr_connect(email = credentials$email, password = credentials$password)
results = formr::formr_results("s2_initial", 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 Nov. 13, 2022, 12:40 p.m.