R/aria_utils.R

In sistec: Tools to Analyze 'Sistec' Datasets

aria_version <- function(){
  description_path <- system.file("DESCRIPTION", package = "sistec")
  as.character(read.dcf(description_path, fields = "Version"))
}

aria_run <- function(ui, server, version, options_port, options_launch_browser){
  if(version == "online"){
    shinyApp(ui, server)
  } else {
    shinyApp(ui, server, options = list(port = options_port,
                                        launch.browser = options_launch_browser))
  }
}