R/launch.R

launch <- function(){
	if (!interactive())
		stop('The Agroft package is designed for interactive use only', call.=TRUE)

  shiny::runApp(system.file('app', package='agroft'))
}
ucd-ipo/agroft documentation built on May 3, 2019, 2:20 p.m.