R/Interface.R

In vivienroussez/autoTS: Automatic Model Selection and Prediction for Univariate Time Series

#' Demo graphical user interface
#'
#' @description A shiny application that allows the user to load a properly formated CSV file,
#' benchmark the algorithms, make a prediction and download the results. Requires additional packages
#' shiny, shinycssloaders, tidyr and plotly to be installed
#'
#' @export
#' @examples
#' autoTS::runUserInterface()
#'
runUserInterface <- function() {
  appDir <- system.file("shiny-example", "Viz_autoTS", package = "autoTS")
  if (appDir == "") {
    stop("Could not find directory. Try re-installing `autoTS`.", call. = FALSE)
  } else if (interactive()) shiny::runApp(appDir, display.mode = "normal")
}