#library(shinytest2)

# test_that("Initial Shiny values are consistent", {
#   app <- AppDriver$new()
#
#   app$expect_values()
# })

#getwd()

#setwd("../")
#shinytest2::record_test(app= run_app(), test_file = "shinytest2-rec")