R/IRRsim_demo.R

In jbryer/IRRsim: Simulate Inter-Rater Reliability Statistics

#' Run the Inter-Rater Reliability shiny application.
#'
#' @param clean if `TRUE` the cache file will be deleted when the application finishes.
#' @export
IRRsim_demo <- function(clean = FALSE) {
	dir <- paste0(find.package('IRRsim'), '/shiny')
	message(paste0("Running shiny app from ", dir))
	cache.file <- paste0(dir, '/IRRsimShinyCache.rda')
	if(file.exists(cache.file)) {
		if(clean) {
			message(paste0('Deleting old cache file.'))
			unlink(paste0(dir, '/IRRsimShinyCache.rda'))
		} else {
			message('Cache file found. Set clean = TRUE to remove.')
		}
	}
	shiny::runApp(appDir = dir)
}