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

data = getData("depression-perinatal-psyctr", version = "26.0.1")
dat = data$data

list(
  dat = dat %>%
    mutate(
      n_arm1_final = coalesce(baseline_n_arm1, n_arm1),
      n_arm2_final = coalesce(baseline_n_arm2, n_arm2),
      N = n_arm1_final + n_arm2_final
    ) %>%
    select(-n_arm1_final, -n_arm2_final) %>%
    mutate(
      `.g` = `.g` * -1,
      study = recode(study,
        "Harrison-Hohner, 2001a - Albuquerque sample" = "Harrison-Hohner, 2001a",
        "Harrison-Hohner, 2001b - Portland sample" = "Harrison-Hohner, 2001b"
      )
    ),
  metadata = data$returnMetadata()
) -> PerinatalDB

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