Невозможно запустить блестящий драйвер внутри функции сервера

Question

Я не могу запустить блестящий драйвер внутри файла сервера. По сути, у меня есть простое приложение, и я хочу проверить, работает ли кнопка действия или нет. Итак, я не могу запустить функцию глянцевый драйвер. Ниже приведен пример

ui.R

library(shiny)
source("add.R")


# Define UI for application that draws a histogram
shinyUI(fluidPage(

  textInput("name", "Name: "),
  textOutput("greeting"),
  actionButton("show", "Show"),
  actionButton("checkme","checkme"),
  selectInput("Slider","Slider",choices = unique(iris$Species))
  )
  )

server.R

library(shinytest)
library(testthat)

shinyServer(function(input, output) {

  output$greeting <- renderText({
    paste0("Hello, ", input$name, "!")
  })
  app <- ShinyDriver$new(getwd())
  Checking_click_button <- app$setInputs(checkme = "click")

})