download button --> not working yet

mini update in help

dashboard/server.R

@@ -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)

dashboard/ui.R

@@ -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()
       )