## ---- 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()