now works like it should

Still multiple charts not working

dashboard/server.R

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