This is Function is to launch mutiple shiny applications for protGear
launch_select(theApp)accepts one of the folders containing the shiny appplication
launches the app defined under theApp
validExamples <-
list.files(system.file("shiny-examples", package = "protGear"))
#launch_select(validExamples[[1]])