Commit d6fa0877 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

download button --> not working yet

mini update in help
parent 5d69fcdb
......@@ -2,6 +2,7 @@
library(shiny)
library(jsonlite)
library(DT)
library(webshot)
server <- function(input, output) {
set.seed(122)
......@@ -167,7 +168,7 @@ server <- function(input, output) {
#TODO: Getting HEADER out of json to select it
#Not sure if so smart but it should work that way
#Not sure if so smart but it should work that way --> mit if schaun welches ausgewählt worden ist und die daten dann für dashboard ausgeben
output$input_hist_x <- renderUI({
if (is.null(input$nut))
return(NULL)
......@@ -217,6 +218,34 @@ server <- function(input, output) {
})
output$download <- downloadHandler({
filename=function(){
dashbord.png
paste("dashboard", "png", sep=".")
}
content=function(file){
#open divice
png(file)
#create image
appshot(cocoVisR, file = "dashboard.png", ..., port = getOption("shiny.port"), envvars = NULL)
#close divice
dev.off()
}
})
#output$downButton <- downloadHandler(
# filename="dashboard.png",
#content=function(file){
# observeEvent(input$downButton, {
#appshot("cocoVisR/dashboard", file = "dashboard.png", port = getOption("shiny.port"), envvars = NULL)
#})
#}
#)
#appshot(cocoVisR, file = "dashboard.png", ..., port = getOption("shiny.port"),
#envvars = NULL)
#histdata <- rnorm(500)
......
......@@ -113,9 +113,13 @@ ui <- dashboardPage(
box(title="Linechart",
status = "warning",
solidHeader = TRUE,
collapsible = TRUE,plotOutput("plot4", height = 250))
collapsible = TRUE,plotOutput("plot4", height = 250))#,
)
#downloadButton("downButton", "Download")
),
downloadButton("downButton", "Download")
),
# Help tab content
......@@ -135,7 +139,7 @@ ui <- dashboardPage(
"On this page you are able to select the visualizations you want to use and which data should be in them.", br(),
"To show a visualization on the dashboard you have to enable the right checkbox. After that you need to select the x- and y-axis for this visualisation and then it will be added to the dashboard. ",
h3("Dashboard"),
"", br()
"Here you can now find your selected visualizations. ", br()
)
......
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