Commit 115749d2 authored by Aqeel Padaria's avatar Aqeel Padaria

dashboard troubleshoot 2 - write csv out and no workbook

parent a73c1ed3
......@@ -481,20 +481,20 @@ server = shinyServer(
mainout$X2 <- c(datasetName, input$metric, input$timefactor, input$testsplit, input$error, input$var)
}
wb <- createWorkbook()
addWorksheet(wb, "Main Information")
writeData(wb, sheet = "Main Information", x = mainout, colNames = FALSE, rowNames = FALSE)
addWorksheet(wb, "Original Data")
writeData(wb, sheet = "Original Data", x = original, colNames = TRUE, rowNames = FALSE)
addWorksheet(wb, "Forecast")
writeData(wb, sheet = "Forecast", x = newvals, colNames = TRUE, rowNames = FALSE)
p <- getPlot()
print(p)
addWorksheet(wb, "Plot")
insertPlot(wb, "Plot", width=8, height = 4, fileType = "png", units = "in")
# wb <- createWorkbook()
# addWorksheet(wb, "Main Information")
# writeData(wb, sheet = "Main Information", x = mainout, colNames = FALSE, rowNames = FALSE)
# addWorksheet(wb, "Original Data")
# writeData(wb, sheet = "Original Data", x = original, colNames = TRUE, rowNames = FALSE)
# addWorksheet(wb, "Forecast")
# writeData(wb, sheet = "Forecast", x = newvals, colNames = TRUE, rowNames = FALSE)
#
# p <- getPlot()
# print(p)
# addWorksheet(wb, "Plot")
# insertPlot(wb, "Plot", width=8, height = 4, fileType = "png", units = "in")
#
#saveWorkbook(wb,file, overwrite = T)
write.csv(x = mainout, file = file)
})
......
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