suppressPackageStartupMessages(library(spant))
suppressPackageStartupMessages(library(optparse))

if (ver != utils::packageVersion("spant")) {
  warning("c/l script and spant version missmatch. Reinstall the c/l scripts with : sudo Rscript -e \"spant::install_cli()\"")
}

parser <- OptionParser(prog = "spant_fit_svs_gui", description = "Launch the spant SVS analysis graphical user interface (a wrapper around the fit_svs_gui function in the spant R package).",
                       formatter = IndentedHelpFormatter)

opt <- parse_args(parser)

fit_svs_gui()
