1_wrangle_data (2).Rmd

---
output:
  html_document:
    code_folding: "show"
---

# Wrangle data {.tabset .tabset-sticky}

```{r message=FALSE, warning=FALSE}
source("0_helpers.R")
```

## Wrangle wrangle

```{r}
bfi = jsonlite::fromJSON("BFI_post.json")
bfi_items = formr_items(path = "BFI_post_items.json")
bfi = formr_post_process_results(bfi_items, bfi)
```

## Save data
```{r}
saveRDS(bfi, file = "bfi.rds")
haven::write_sav(bfi, path = "bfi.sav")
```