In codebook: Automatic Codebooks from Metadata Encoded in Dataset Attributes

if (!exists("indent")) {
    indent <- '#'
}
if (exists("testing")) {
  scale_name <- safe_name <- "bla"
    scale <- 1:10
    reliabilities <- list()
    items <- data.frame(bla1 = 1:10, bla2 = 1:10, bla3R = 10:1)
    scale_info <- list(scale_item_names = c("bla1", "bla2", "bla3R"))
}
html_scale_name <- recursive_escape(scale_name)
names(items) <- recursive_escape(names(items))
scale_info <- recursive_escape(attributes(scale))

r indent## Scale: r html_scale_name {#r safe_name .tabset} r paste0('<a name="', scale_info$scale_item_names, '"></a>', collapse = '', sep = '')

r indent### Overview {#r safe_name_likert}

Reliability: r pull_reliability(reliabilities).

Missing: r sum(is.na(scale)).

old_height <- knitr::opts_chunk$get("fig.height")
new_height <- length(scale_info$scale_item_names)
new_height <- ifelse(new_height > 20, 20, new_height)
new_height <- ifelse(new_height < 1, 1, new_height)
new_height <- ifelse(is.na(new_height) | is.nan(new_height), 
                     old_height, new_height)

if (dplyr::n_distinct(na.omit(unlist(items))) < 12) {
  likert_plot <- likert_from_items(items)
  if (!is.null(likert_plot)) {
    graphics::plot(likert_plot)
  }
}

wrap_at <- knitr::opts_chunk$get("fig.width") * 10
dist_plot <- plot_labelled(scale, scale_name, wrap_at)

choices <- attributes(items[[1]])$item$choices
breaks <- as.numeric(names(choices))
if (length(breaks)) {
  suppressMessages( # ignore message about overwriting x axis
  dist_plot <- dist_plot +
        ggplot2::scale_x_continuous("values", 
                                breaks = breaks, 
                                labels = stringr::str_wrap(unlist(choices), ceiling(wrap_at * 0.21))) +
      ggplot2::expand_limits(x = range(breaks)))

}

dist_plot

r indent### Reliability details {#r safe_name_reliability}

for (i in seq_along(reliabilities)) {
  rel <- reliabilities[[i]]
  print(knitr::knit_print(rel, headingLevel = 5))
  print(knitr::asis_output("\n\n\n"))
}

r indent### Summary statistics {#r safe_name_summary}

for (i in seq_along(names(items))) {
  attributes(items[[i]]) = recursive_escape(attributes(items[[i]]))
}
escaped_table(codebook_table(items))

codebook documentation built on July 1, 2020, 10:28 p.m.