Commit 217b8288 authored by Aqeel Padaria's avatar Aqeel Padaria

launch browser setting for portable app

parent ffa3e257
......@@ -6,7 +6,7 @@
#' @examples
#' forecastUI("./forecastFiles/")
forecastUI <- function(directory = ".", run = TRUE, auth = TRUE)
forecastUI <- function(directory = ".", run = TRUE, auth = TRUE, launch.browser = getOption("shiny.launch.browser", interactive()))
{
library(openxlsx)
......@@ -1207,7 +1207,7 @@ on.exit(rm(list=ls()))
if(run)
{
runApp(app)
runApp(app, launch.browser = launch.browser)
} else
{
app
......
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