fix: Cleanup print message and test from #402 (#421)

Author: schloerke

R/app-driver-dir.R

@@ -16,10 +16,6 @@ app_set_dir <- function(
     ) {
       # If the function is from the local package, ensure the package is loaded
       # Make a new function that first loads the package, then runs the original function
-      message(
-        "Upgrading `app_dir` function to load dev package: ",
-        package_name
-      )
 
       app_fn <- app_dir
       app_dir <- function() {}

tests/testthat/pkgs/expkg/R/value.R

@@ -16,7 +16,9 @@ expkg_shiny_app <- function() {
       tags$p("If this app loads, it is a success!"),
       actionButton("btn", "Click Me"),
       verbatimTextOutput("btn_click_count"),
-      verbatimTextOutput("exported_value")
+      verbatimTextOutput("exported_value"),
+      verbatimTextOutput("internal_value"),
+      tags$code(expkg_internal_value)
     ),
     server = function(input, output) {
       output$btn_click_count <- renderText({
@@ -25,6 +27,9 @@ expkg_shiny_app <- function() {
       output$exported_value <- renderText({
         expkg_exported_value
       })
+      output$internal_value <- renderText({
+        expkg_internal_value
+      })
     }
   )
 }

tests/testthat/pkgs/expkg/tests/testthat/test-function.R

@@ -9,7 +9,14 @@ test_that("Local pkg loads", {
 })
 
 
-test_that("Pass in fn directly", {
+test_that("Pass in run fn directly", {
   app <- AppDriver$new(expkg_run_shiny_app)
   expkg_expect_shiny_app(app)
 })
+
+
+# https://github.com/rstudio/shinytest2/issues/296
+test_that("Pass in app obj fn directly", {
+  app <- AppDriver$new(expkg_shiny_app)
+  expkg_expect_shiny_app(app)
+})