R/app-driver-chromote.R

In shinytest2: Testing for Shiny Applications

app_get_chromote_session <- function(self, private) {
  ckm8_assert_app_driver(self, private)

  private$chromote_session
}

app_view <- function(self, private) {
  ckm8_assert_app_driver(self, private)
  self$log_message("Viewing chromote session")

  self$get_chromote_session()$view()
}