R/tests_server.R

Defines functions tests_server

tests_server <- function(input, output, session) {
  
  shiny::observeEvent(input$run, {
    
    rstudioapi::sendToConsole("usethis::use_testthat()")
    
    shiny::stopApp()
    
  })
  
}
nevrome/rrtools.addin documentation built on Nov. 3, 2018, 3:21 a.m.