library(testthat)
library(TreatmentPatterns)

test_that("launchResultsExplorer", {
  skip_if_not(ableToRun()$plotting)
  app <- launchResultsExplorer()
  expect_s3_class(app, "shiny.appobj")
  
  rm(app)
  gc()
})