tests/testthat/test-run_shinymixr.R

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

test_that("run_shinymixr returns app object", {
  # Don't run these tests on the CRAN build servers
  skip_on_cran()
  
  # Don't run this test on CI
  skip_on_ci()
  
  app <- suppressWarnings(run_shinymixr(paste0(tempdir(),"/files")))
   expect_is(app, "shiny.appobj")
  
  # delete created shinyMixR/ subdirectory
  rml  <- list.files(tempdir(), recursive = TRUE, include.dirs = TRUE, full.names = TRUE)
  unlink(rml, recursive = TRUE)
  
})