R/SPINNE.R

In dsnavega/SPINNE: Spine Proportion through Neural Networks Implementation

#' SPINNE
#' 
#' Run SPINNE GUI
#' 
#' @export
#' 
SPINNE <- function() {
  
  spinne_dir <- system.file("app", package = "SPINNE", mustWork = T)
  spinne_app <- shiny::shinyAppDir(appDir = spinne_dir)
  shiny::runApp(
    appDir = spinne_app,
    quiet = TRUE
  )
  
}