library(metapsyData)
library(metapsyTools)

d <- getData("psychosis-psyctr", version = "26.0.2")
dat <- d$data

list(
  total = dat[dat$symptom_domain == "Total", ],
  positive = dat[dat$symptom_domain == "Positive", ],
  negative = dat[dat$symptom_domain == "Negative", ],
  metadata = d$returnMetadata()
) -> PsychosisPsyCtrDB

save(PsychosisPsyCtrDB, file = "www/data/PsychosisPsyCtrDB.rda")