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