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

data = getData("ptsd-mdmactr", version="26.0.0")
dat = data$data

list(
  dat = dat %>%
   filterPoolingData(
    primary_instrument == "1",
    post_crossover == 0 | is.na(post_crossover),
    is.na(post_crossover) | !Detect(post_crossover, "1"),
    outcome_type == "msd",
    !(Detect(study, "Mithoefer 2018") & (!is.na(multi_arm1)) & Detect(multi_arm2, "75 mg")),
    !(Detect(study, "Ot'alora 2018") & (!is.na(multi_arm1)) & Detect(multi_arm2, "100 mg"))) %>%
    {.$.g = .$.g*-1;.},
  metadata = data$returnMetadata()
) -> MdmaDB

# Define primary analysis filter
MdmaDB$dat %>% {
   .$primary_timepoint == "1" &
   !(Detect(.$study, "Mithoefer 2018") & (Detect(.$multi_arm1, "75 mg") & !is.na(.$multi_arm2))) &
   !(Detect(.$study, "Ot'alora 2018") & (Detect(.$multi_arm1, "100 mg") & !is.na(.$multi_arm2)))
} -> MdmaDB$dat$primary

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