```{r setup,eval=TRUE,echo=FALSE}
if (!exists("indent")) {
	indent <- '#' # ugly hack
}
if (exists("testing")) {
	results <- data.frame()
	survey_repetition <- 'single'
	reliabilities <- list()
	missingness_report <- ''
	survey_overview <- '' 
	scales_items <- c()
}
```

```{r}
knitr::asis_output(survey_overview)
```


`r indent`# Items

```{r scales}
knitr::asis_output(paste0(scales_items, sep = "\n\n\n", collapse = "\n\n\n"))
```

```{r}
missingness_report
```


```{r}
items
```

```{r}
jsonld
```
