Commit ca864941 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

empty workspace try

parent d2d4923e
...@@ -279,7 +279,7 @@ server <- function(input, output, session) { ...@@ -279,7 +279,7 @@ server <- function(input, output, session) {
selectInput(xplotname, "x-axis", choices=colnames(coconut.df)), selectInput(xplotname, "x-axis", choices=colnames(coconut.df)),
selectInput(yplotname, "y-axis", choices=colnames(coconut.df)), selectInput(yplotname, "y-axis", choices=colnames(coconut.df)),
print(plotname),
plotOutput(plotname, height = 250)) plotOutput(plotname, height = 250))
) )
...@@ -289,23 +289,23 @@ server <- function(input, output, session) { ...@@ -289,23 +289,23 @@ server <- function(input, output, session) {
#DASHBOARD #DASHBOARD
#BAR VIEW #BAR VIEW
local({ #local({
#
output[[plotname]] <- renderPlot({ # output[[plotname]] <- renderPlot({
print(plotname) # print(plotname)
#
data<- structure(list(V1=as.numeric(coconut.df[[input$xplotname]]), # data<- structure(list(V1=as.numeric(coconut.df[[input$xplotname]]),
V2=as.numeric(coconut.df[[input$yplotname]])), # V2=as.numeric(coconut.df[[input$yplotname]])),
.Names=c("V1","V2"), row.names=c(NA,6L), class = "data.frame") # .Names=c("V1","V2"), row.names=c(NA,6L), class = "data.frame")
#Neues Plot # #Neues Plot
barplot(data$V1,data$V2, # barplot(data$V1,data$V2,
ylab= input$yplotname, # ylab= input$yplotname,
xlab=input$xplotname) # 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