## ----, echo=FALSE, results='hide', message=FALSE-------------------------
library(MSGFgui)

## ----, eval=FALSE--------------------------------------------------------
## # Standard fashion
## MSGFgui()
## 
## # You can pass parameters along to shiny's runApp()
## MSGFgui(port='0.0.0.0')

## ------------------------------------------------------------------------
results <- currentData()

show(results) # Empty as no analysis has been run

## ----, eval=TRUE, echo=TRUE----------------------------------------------
sessionInfo()