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

now works like it should 

Still multiple charts not working
parent ca864941

dashboard/server.R

+17 −20
Original line number Diff line number Diff line
@@ -265,10 +265,10 @@ server <- function(input, output, session) { 
    

    plotCounter<<-plotCounter+1

    print(plotCounter)

    plotname <- paste("plot", plotCounter, sep="")

    plotname <<- paste("plot", plotCounter, sep="")

    print(plotname)

    xplotname<- paste("x",plotname,sep="")

    yplotname<-paste("y",plotname, sep="")

    xplotname<<- paste("x",plotname,sep="")

    yplotname<<-paste("y",plotname, sep="")

    insertUI(

      

      selector= "#viewpanel", #wo will ichs hinhaben
@@ -289,23 +289,20 @@ server <- function(input, output, session) { 
  #DASHBOARD  

  #BAR VIEW

  

  #local({     

    

    

    # 

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

    #   print(plotname)

    # 

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

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

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

    #   #Neues Plot

    #   barplot(data$V1,data$V2,

    #           ylab= input$yplotname,

    #           xlab=input$xplotname)

    # 

    # })

  #})

  local({

  output[[plotname]] <- renderPlot({

    print(plotname)



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

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

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

    #Neues Plot

    barplot(data$V1,data$V2,

            ylab= input$yplotname,

            xlab=input$xplotname)



  })

  })

  

  ## ALTES PLOT

  #a=1