library(metapsyData)
 library(metapsyTools)

 data = getData("depression-inpatients", version="22.2.1")
 dat = data$data

 list(
   dat = dat %>%
     filterPoolingData(
       time == "post",
       outcome_type == "msd",
       !condition_arm2 %in% c("pha", "cbt")) %>%
     runMetaAnalysis(
       "combined",
       extra.grouping.var = "multi_arm1") %>%
     {.$model.combined$data},
   metadat = data$returnMetadata()
 ) -> InpatientsDB

 # Change labels
 within(InpatientsDB$dat,{
   study_old = study
   multi_arm1 = gsub("(?<=\\S)[aeiou]", "",
                     multi_arm1, perl = TRUE, ignore.case = TRUE)
   study = paste0(study, ifelse(
     is.na(multi_arm1), "",
     paste0(" -", multi_arm1)))
 }) -> InpatientsDB$dat

 InpatientsDB$dat$.TE = InpatientsDB$dat$.TE*-1
 save(InpatientsDB, file="www/data/InpatientsDB.rda")