R/tests_server.R

In nevrome/rrtools.addin: A graphical user interface for some of the main functions of the rrtools package

tests_server <- function(input, output, session) {
  
  shiny::observeEvent(input$run, {
    
    rstudioapi::sendToConsole("usethis::use_testthat()")
    
    shiny::stopApp()
    
  })
  
}