tests/testthat.R

In tidyLPA: Easily Carry Out Latent Profile Analysis (LPA) Using Open-Source or Commercial Software

library(testthat)
library(tidyLPA)
options("test_mplus" = FALSE)
if(file.exists("test_local.R")) source("test_local.R")
# To run all mplus tests, run the code below once to create a file that is not
# tracked by git, which toggles the option to run mplus tests:
# writeLines('options("test_mplus" = TRUE)', con = "tests/test_local.R")
test_check("tidyLPA")
# Clean up after test_mplus
if(getOption("test_mplus")){
    remove_files <- list.files(pattern = "\\.(inp|out|dat|log)$", full.names = TRUE)
    if(length(remove_files) > 0){
        invisible(file.remove(remove_files))
    }
}