tests/testthat/submitModels/post_example.R

In MplusAutomation: An R Package for Facilitating Large-Scale Latent Variable Analyses in Mplus

# simple script to show post-processing for Mplus
mplusdir <- Sys.getenv("MPLUSDIR")
mplusinp <- Sys.getenv("MPLUSINP")
if (nchar(mplusinp) > 0) cat("MPLUSINP from Sys.getenv() is: ", mplusinp, "\n")

library(MplusAutomation)

# parse output file and save to disk as rds object
m <- readModels(file.path(mplusdir, sub(".inp", ".out", mplusinp, fixed = TRUE)))

saveRDS(m, file.path(mplusdir, sub(".inp", ".rds", mplusinp, fixed=TRUE)))