shinytest2 app will start, spatial not running

LandSciTech · Aug 30, 2024 · 42c452f · 42c452f
1 parent 82ea919
commit 42c452f
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 7 deletions.
diff --git a/R/ccvi_app.R b/R/ccvi_app.R
@@ -1643,7 +1643,8 @@ ccvi_app <- function(testmode_in, ...){
       out_data_lst$index <- bind_cols(ind_df, conf_df, vuln_df)
     })
 
-    exportTestValues(out_data = shiny::reactiveValuesToList(out_data_lst))
+    exportTestValues(out_data = shiny::reactiveValuesToList(out_data_lst),
+                     doSpatial = doSpatial())
 
     # # helpful for testing
     #  shinyjs::runcodeServer()

diff --git a/tests/testthat/app/app.R b/tests/testthat/app/app.R
diff --git a/tests/testthat/app/test-run_ccvi_app.R → tests/testthat/test-app-run_ccvi_app.R b/tests/testthat/app/test-run_ccvi_app.R → tests/testthat/test-app-run_ccvi_app.R
@@ -4,11 +4,18 @@ library(ccviR)
 # call for snapshot review
 # testthat::snapshot_review('run_ccvi_app/', path = 'tests/testthat/app/')
 
+Sys.setenv(
+  CHROMOTE_CHROME = "C:/Users/EndicottS/AppData/Local/Google/Chrome/Application/chrome.exe"
+)
+
+# Note seems you need to shut Chrome for it to work
+
 test_that("{shinytest2} app test", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()
   skip_on_ci()
-  app <- AppDriver$new(".", name = "ccviR", seed = 7)
+  app_obj <- run_ccvi_app("demo", test.mode = TRUE)
+  app <- AppDriver$new(app_obj, name = "ccviR", seed = 7)
   # app <- AppDriver$new("tests/testthat/app", name = "ccviR", seed = 7)
 
   # Update output value

diff --git a/tests/testthat/test-app.R b/tests/testthat/test-app.R