Commit cce0f942 authored by Aqeel Padaria's avatar Aqeel Padaria

dashboard troubleshoot 3.1 - restore plot addition

parent da75bf78
......@@ -490,10 +490,10 @@ server = shinyServer(
openxlsx::addWorksheet(wb, "Forecast")
openxlsx::writeData(wb, sheet = "Forecast", x = newvals, colNames = TRUE, rowNames = FALSE)
# p <- getPlot()
# print(p)
# openxlsx::addWorksheet(wb, "Plot")
# openxlsx::insertPlot(wb, "Plot", width=8, height = 4, fileType = "png", units = "in")
p <- getPlot()
print(p)
openxlsx::addWorksheet(wb, "Plot")
openxlsx::insertPlot(wb, "Plot", width=8, height = 4, fileType = "png", units = "in")
openxlsx::saveWorkbook(wb,file, overwrite = T)
#write.csv(x = mainout, file = file)
......@@ -571,7 +571,7 @@ ui = #ui.R
uiOutput("dataOptions"),
selectInput("error",
label = "Choose accuracy error metric",
label = "Choose metric for accuracy error",
choices = list("Standard MAPE","Adjusted MAPE","Weighted MAPE"),
selected = "Adjusted MAPE"),
......
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