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) { ...@@ -265,10 +265,10 @@ server <- function(input, output, session) {
plotCounter<<-plotCounter+1 plotCounter<<-plotCounter+1
print(plotCounter) print(plotCounter)
plotname <- paste("plot", plotCounter, sep="") plotname <<- paste("plot", plotCounter, sep="")
print(plotname) print(plotname)
xplotname<- paste("x",plotname,sep="") xplotname<<- paste("x",plotname,sep="")
yplotname<-paste("y",plotname, sep="") yplotname<<-paste("y",plotname, sep="")
insertUI( insertUI(
selector= "#viewpanel", #wo will ichs hinhaben selector= "#viewpanel", #wo will ichs hinhaben
...@@ -289,23 +289,20 @@ server <- function(input, output, session) { ...@@ -289,23 +289,20 @@ server <- function(input, output, session) {
#DASHBOARD #DASHBOARD
#BAR VIEW #BAR VIEW
#local({ local({
output[[plotname]] <- renderPlot({
print(plotname)
#
# output[[plotname]] <- renderPlot({ data<- structure(list(V1=as.numeric(coconut.df[[input$xplotname]]),
# print(plotname) V2=as.numeric(coconut.df[[input$yplotname]])),
# .Names=c("V1","V2"), row.names=c(NA,6L), class = "data.frame")
# data<- structure(list(V1=as.numeric(coconut.df[[input$xplotname]]), #Neues Plot
# V2=as.numeric(coconut.df[[input$yplotname]])), barplot(data$V1,data$V2,
# .Names=c("V1","V2"), row.names=c(NA,6L), class = "data.frame") ylab= input$yplotname,
# #Neues Plot xlab=input$xplotname)
# barplot(data$V1,data$V2,
# ylab= input$yplotname, })
# xlab=input$xplotname) })
#
# })
#})
## ALTES PLOT ## ALTES PLOT
#a=1 #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