Commit f500043c authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

now works like it should

Still multiple charts not working
parent ca864941
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment