Commit c0b6f19f authored by Aqeel Padaria's avatar Aqeel Padaria

parameter to disable clearing workspace

parent b688c817
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
#' @examples #' @examples
#' forecastUI("./forecastFiles/") #' 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) library(openxlsx)
...@@ -1210,7 +1210,10 @@ ui = #ui.R ...@@ -1210,7 +1210,10 @@ ui = #ui.R
app <- shinyApp(ui = ui, server = server) app <- shinyApp(ui = ui, server = server)
on.exit(rm(list=ls())) if(rmEnv)
{
on.exit(rm(list=ls()))
}
if(run) 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