Commit ca864941 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

empty workspace try

parent d2d4923e
......@@ -279,7 +279,7 @@ server <- function(input, output, session) {
selectInput(xplotname, "x-axis", choices=colnames(coconut.df)),
selectInput(yplotname, "y-axis", choices=colnames(coconut.df)),
print(plotname),
plotOutput(plotname, height = 250))
)
......@@ -289,23 +289,23 @@ 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