Testing using shinytest2

DESCRIPTION

@@ -25,3 +25,7 @@ RoxygenNote: 7.3.2
 Encoding: UTF-8
 BugReports: https://github.com/statnet/statnetWeb/issues
 URL: https://statnet.org, https://github.com/statnet/statnetWeb
+Suggests: 
+    testthat (>= 3.0.0),
+    shinytest2
+Config/testthat/edition: 3

inst/shiny/statnetWeb/server.R

@@ -1231,7 +1231,7 @@ output$datadesc <- renderUI({
   text
 })
 
-output$rawdatafile <- renderPrint({
+output$rawdata_stats <- renderPrint({
   raw <- matrix(nrow=2,ncol=1)
   rownames(raw)<-c("name:", "size:")
   if(!is.null(input$rawdatafile)){

inst/shiny/statnetWeb/tests/testthat.R

@@ -0,0 +1 @@
+shinytest2::test_app()

inst/shiny/statnetWeb/tests/testthat/setup-shinytest2.R

@@ -0,0 +1,2 @@
+# Load application support files into testing environment
+shinytest2::load_app_env()

inst/shiny/statnetWeb/tests/testthat/test-shinytest2.R

@@ -0,0 +1,9 @@
+library(shinytest2)
+
+test_that("{shinytest2} recording: load-flobusiness", {
+  app <- AppDriver$new(variant = platform_variant(), name = "load-flobusiness", height = 770, 
+      width = 1165)
+  app$set_inputs(navbar = "tab2")
+  app$set_inputs(samplenet = "flobusiness")
+  app$expect_screenshot()
+})

inst/shiny/statnetWeb/ui.R

@@ -212,7 +212,8 @@ fluidRow(
                column(6,
                     br(),
                     fileInput(inputId='rawdatafile', label=NULL, accept='text'),
-                    verbatimTextOutput('rawdatafile'))
+                    verbatimTextOutput('rawdata_stats')
+                    )
                 ),
              conditionalPanel(condition = 'input.filetype == 5',
                 column(6,

tests/testthat.R

@@ -0,0 +1,12 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
+library(testthat)
+library(statnetWeb)
+
+test_check("statnetWeb")

tests/testthat/test-statnetWeb-app.R

@@ -0,0 +1,11 @@
+library(shinytest2)
+
+test_that("statnetWeb app works", {
+  # Don't run these tests on CRAN
+  # skip_on_cran()
+  expect_true(TRUE)
+
+  app_path <- "../../inst/shiny/statnetWeb"
+  # testthat::expect_identical(app_path, 1)
+  test_app(app_path, check_setup = TRUE)
+})