based on formr pre haven semantics

Author: rubenarslan

.Rbuildignore

@@ -1,3 +1,4 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
 ^docs
+.zenodo.json

.zenodo.json

@@ -0,0 +1,11 @@
+{
+	"title": "Cook codebooks from survey metadata encoded in attributes in R",
+	"upload_type": "software",
+	"creators": [
+		{
+			"affiliation": "Center for Adaptive Rationality, Max Planck Institute for Human Development",
+			"name": "Ruben C. Arslan"
+		}
+		],
+	"access_right": "open"
+}

R/codebook.R

@@ -38,9 +38,10 @@ codebook = function(results, indent = '#') {
 #' @param scale a scale with attributes set
 #' @param results a formr results table with attributes set on items and scales
 #' @param indent add # to this to make the headings in the components lower-level. defaults to beginning at h2
+#' @param survey_repetition defaults to single (other values: repeated_once, repeated_many). controls whether internal consistency, retest reliability or multilevel reliability is computed
 #'
 #' @export
-codebook_component_scale = function(scale, results, indent = '###') {
+codebook_component_scale = function(scale, results, indent = '###', survey_repetition = "single") {
   stopifnot( exists("item", attributes(scale)))
   stopifnot( exists("scale", attributes(scale)))
   stopifnot( exists("scale_item_names", attributes(scale)))

inst/_codebook.Rmd

@@ -78,14 +78,14 @@ ggplot2::qplot(duration$duration, binwidth = 0.5) + ggplot2::scale_x_continuous(
 
 ```{r scales,results='asis'}
 vars = names(results)
-knit_scales = listenv::listenv()
+knit_scales = new.env()
 for (i in seq_along(vars)) {
 	var = vars[i]
 	scale = results[[ var ]]
 	scale_info = attributes(scale)
 		if ( !is.null(scale_info)) {
 		  if (exists("scale", scale_info)) {
-		    knit_scales[[ var ]] = future::value(future::future( codebook_component_scale( scale, results, indent ) ))
+		    future::`%<-%`(knit_scales[[ var ]], codebook_component_scale( scale, dplyr::select(results, session, dplyr::starts_with(scale_info$scale)), indent, survey_repetition) )
 		  }
 	}
 }