removing shiny app test

removing shiny app test due to OhdsiShinyModule dep
OHDSI · Jan 10, 2025 · c895f17 · c895f17
1 parent b42808a
commit c895f17
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 32 deletions.
diff --git a/R/ViewShiny.R b/R/ViewShiny.R
@@ -149,22 +149,13 @@ viewChars <- function(
     databaseSettings$cgTablePrefix <- databaseSettings$cohortTablePrefix
     databaseSettings$databaseTable <- "DATABASE_META_DATA"
     databaseSettings$databaseTablePrefix <- ""
-    # databaseSettings$iTablePrefix <- databaseSettings$incidenceTablePrefix
     databaseSettings$cgTable <- "cohort_definition"
 
-    if (!testApp) {
       OhdsiShinyAppBuilder::viewShiny(
         config = config,
         connection = connection,
         resultDatabaseSettings = databaseSettings
       )
-    } else {
-      OhdsiShinyAppBuilder::createShinyApp(
-        config = config,
-        connection = connection,
-        resultDatabaseSettings = databaseSettings
-      )
-    }
 }
 
 

diff --git a/tests/testthat/test-viewShiny.R b/tests/testthat/test-viewShiny.R
@@ -125,26 +125,3 @@ test_that("prepareCharacterizationShiny works", {
   testthat::expect_true("cg_cohort_definition" %in% tables)
   testthat::expect_true("database_meta_data" %in% tables)
 })
-
-test_that("shiny app works", {
-  settings <- prepareCharacterizationShiny(
-    resultFolder = file.path(resultLocation, "result"),
-    cohortDefinitionSet = NULL,
-    sqliteLocation = file.path(resultLocation, "sqliteCharacterization", "sqlite.sqlite")
-  )
-
-  app <- viewChars(
-    databaseSettings = settings,
-    testApp = T
-  )
-
-  shiny::testServer(
-    app = app,
-    args = list(),
-    expr = {
-      testthat::expect_equal(runServer[["About"]], 0)
-      session$setInputs(menu = "About")
-      testthat::expect_equal(runServer[["About"]], 1)
-    }
-  )
-})