Commit ca864941 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl
Browse files

empty workspace try

parent d2d4923e

dashboard/server.R

+18 −18
Original line number Original line Diff line number Diff line
@@ -279,7 +279,7 @@ server <- function(input, output, session) { 
                

                

                selectInput(xplotname, "x-axis", choices=colnames(coconut.df)),

                selectInput(xplotname, "x-axis", choices=colnames(coconut.df)),

                selectInput(yplotname, "y-axis", choices=colnames(coconut.df)),

                selectInput(yplotname, "y-axis", choices=colnames(coconut.df)),

                

                print(plotname),

                plotOutput(plotname, height = 250))

                plotOutput(plotname, height = 250))

    )

    )
@@ -289,23 +289,23 @@ server <- function(input, output, session) { 
  #DASHBOARD  

  #DASHBOARD  

  #BAR VIEW

  #BAR VIEW

  

  

  local({     

  #local({     

    

    

    

    

    

    # 

    output[[plotname]] <- renderPlot({

    # output[[plotname]] <- renderPlot({

      print(plotname)

    #   print(plotname)

      

    # 

      data<- structure(list(V1=as.numeric(coconut.df[[input$xplotname]]), 

    #   data<- structure(list(V1=as.numeric(coconut.df[[input$xplotname]]),

                            V2=as.numeric(coconut.df[[input$yplotname]])),

    #                         V2=as.numeric(coconut.df[[input$yplotname]])),

                       .Names=c("V1","V2"), row.names=c(NA,6L), class = "data.frame")

    #                    .Names=c("V1","V2"), row.names=c(NA,6L), class = "data.frame")

      #Neues Plot

    #   #Neues Plot

      barplot(data$V1,data$V2, 

    #   barplot(data$V1,data$V2,

              ylab= input$yplotname,

    #           ylab= input$yplotname,

              xlab=input$xplotname)

    #           xlab=input$xplotname)

      

    # 

    })

    # })

  })

  #})

  

  

  ## ALTES PLOT

  ## ALTES PLOT

  #a=1

  #a=1