_load-data.qmd

```{r}
#| label: load-data

library(dplyr)
# library(tidyr)
library(stringr)
# library(purrr)
# library(readr)
# library(glue)
# library(jsonlite)
library(redivis)

# project <- redivis::user("bdomingu")$dataset("irw_meta:bdxt:v1_1")
# metadata_table <- project$table("metadata:h5gs")
# # get metadata table
# metadata <- metadata_table$to_tibble()
# metadata <- metadata |>
#   mutate(partition = if_else(n_categories == 2, "dichotomous", "polytomous"))

biblio <- redivis$user("bdomingu")$dataset("irw_meta:bdxt:latest")$table("biblio:qahg")$to_tibble()

# First in the R section, we need to properly define the data for OJS
data_index <- biblio |>
  rename(dataset = `table`, url = URL__for_data_, license = `Derived_License`,
         description = Description, reference = Reference_x, doi = DOI__for_paper_) |>
  mutate(dataset = str_remove(dataset, ".R.ata$")) |>
  arrange(dataset)

# Make it available to OJS 
ojs_define(data_index = data_index)
# ojs_define(metadata = metadata)
```