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