changed TealAppDriver constructor

Author: gogonzo

tests/testthat/helper-TealAppDriver.R

@@ -7,7 +7,8 @@ init_teal_app_driver <- function(...) {
   testthat::with_mocked_bindings(
     {
       TealAppDriver <- getFromNamespace("TealAppDriver", "teal") # nolint: object_name.
-      TealAppDriver$new(...)
+
+      TealAppDriver$new(init(...))
     },
     shinyApp = function(ui, server, ...) {
       functionBody(server) <- bquote({