Commit c0b6f19f authored by Aqeel Padaria's avatar Aqeel Padaria

parameter to disable clearing workspace

parent b688c817
......@@ -6,7 +6,7 @@
#' @examples
#' forecastUI("./forecastFiles/")
forecastUI <- function(directory = ".", run = TRUE, auth = TRUE, launch.browser = getOption("shiny.launch.browser", interactive()))
forecastUI <- function(directory = ".", run = TRUE, auth = TRUE, launch.browser = getOption("shiny.launch.browser", interactive()), rmEnv = TRUE)
{
library(openxlsx)
......@@ -1210,7 +1210,10 @@ ui = #ui.R
app <- shinyApp(ui = ui, server = server)
on.exit(rm(list=ls()))
if(rmEnv)
{
on.exit(rm(list=ls()))
}
if(run)
{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment