Commit 1cc67b67 authored by Aqeel Padaria's avatar Aqeel Padaria

add option to remove download button, for use in executable without rtools

parent d713d6cb
......@@ -3,7 +3,7 @@ Title: Time Series Aggregator GUI
Version: 0.0.0.9000
Authors@R: person("Aqeel", "Padaria", email = "aqeel.padaria@gramener.com", role = c("aut", "cre"))
Description: GUI Frontend for the Time Series Aggregated Forecasting tool.
Depends: R (>= 3.3.2), openxlsx, shiny, DT, shinycssloaders, ggplot2, googleAuthR, shinyjs, ggseas, lubridate, tseries, urca, shinyBS, RColorBrewer
Depends: R (>= 3.3.2), openxlsx, shiny, DT, shinycssloaders, ggplot2, googleAuthR, shinyjs, ggseas, lubridate, tseries, urca, shinyBS
License:
Encoding: UTF-8
LazyData: true
......
......@@ -6,7 +6,7 @@
#' @examples
#' forecastUI("./forecastFiles/")
forecastUI <- function(directory = ".", run = TRUE, authget = TRUE, launch.browser = getOption("shiny.launch.browser", interactive()), rmEnv = TRUE)
forecastUI <- function(directory = ".", run = TRUE, authget = TRUE, launch.browser = getOption("shiny.launch.browser", interactive()), rmEnv = TRUE, downloadOptions = TRUE)
{
library(openxlsx)
......@@ -1576,7 +1576,10 @@ ui = #ui.R
withSpinner(tableOutput("forecastTable")),
# withSpinner(actionButton("plotBut", label = "Expand")),
# actionButton("plotBut", label = "Expand"),
withSpinner(downloadButton("downloadData", label = "Download"))
if(downloadOptions)
{
withSpinner(downloadButton("downloadData", label = "Download"))
}
)
)
......
......@@ -6,7 +6,7 @@
\usage{
forecastUI(directory = ".", run = TRUE, authget = TRUE,
launch.browser = getOption("shiny.launch.browser", interactive()),
rmEnv = TRUE)
rmEnv = TRUE, downloadOptions = TRUE)
}
\arguments{
\item{directory}{This parameter allows you to specify the directory containing the Forecast Output files. Defaults to current working directory.}
......
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