tests/testthat/test-shinymixr-01-model-run1.R

In shinyMixR: Interactive 'shiny' Dashboard for 'nlmixr2'

library(shinytest2)

test_that("Shiny app runs model and returns parameters for run1", {
  # In the end we might want to remove this test;
  # running a model is tested from within R (test-run_nmx) and in shiny (test-module_run)
  
  # Don't run these tests on the CRAN build servers
  skip_on_cran()
  
  # Don't run this test on CI
  skip_on_ci()
  
  # Set up necessary files (internal function)
  shinyMixR:::setup_shinymixr_test(dir = paste0(tempdir(),"/files"),
                                   overwrite = TRUE, 
                                   record = FALSE)
  
  # Start driver for Shiny test
  shiny_app <- shinyMixR::run_shinymixr(paste0(tempdir(),"/files"))
  app <- AppDriver$new(app_dir = shiny_app, 
                       name = "run1-model", 
                       seed = 123)
  
  app$set_inputs(tabs = "run")
  app$set_inputs(`modrun-runLst` = "run1")
  app$click("modrun-runMdl")
  # Add small timeout so sweet alert has time to display and click confirm
  Sys.sleep(1)
  app$click(selector = ".swal2-confirm")
  
  # Wait for model to finish (NULL or 0 is the initial value, so we ignore it)
  app$wait_for_value(export = "modrun-model_updated",
                     ignore = list(NULL, 0),
                     timeout = 120000)
  
  # Test if run is done and 'correct' results have been created
  Sys.sleep(1)
  rundone <- "run1.res.rds"%in%list.files(paste0(tempdir(),"/files/shinyMixR"))
  expect_true(rundone)
  if(rundone){
    runres <- readRDS(paste0(tempdir(),"/files/shinyMixR/run1.res.rds"))
    expect_true(inherits(runres,"nlmixr2FitData"))
  }
  
  # Stop and clean up
  app$stop()
  #unlink(paste0(tempdir(),"/files"), recursive = TRUE) 
  rml  <- list.files(tempdir(), recursive = TRUE, include.dirs = TRUE, full.names = TRUE)
  unlink(rml, recursive = TRUE)
})