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

data = getData("grief-psyctr", version="25.0.4")
dat = data$data

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

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