download button --> not working yet

library(shiny)

library(jsonlite)

library(DT)

library(webshot)

server <- function(input, output) {

  set.seed(122)

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

  })

  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)

                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

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

      )