library(metapsyData)
library(metapsyTools)
library(tidyverse)

data = getData("ptsd-psyctr", version="23.0.2")
dat = data$data

list(
  dat = dat %>%
    # Do minor data manipulations
    mutate(year = parse_number(study)) %>%
    runMetaAnalysis("combined") %>%
    {.$model.combined$data},
  metadata = data$returnMetadata()
) -> PtsdDB

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