Commit f5e5da56 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

boxplot

parent 87b68a73
......@@ -397,6 +397,10 @@ server <- function(input, output, session) {
#TODO: Boxplot View
output$box <- renderPlot({
print("BOX wird aufgerufen")
data<- structure(list(V1=as.numeric(coconut.df[[input$box_x]])),
.Names=c("V1"), row.names=c(NA,6L), class = "data.frame")
boxplot(data$V1, type="box", labx=input$box_x )
})
#MAP
......
......@@ -106,8 +106,8 @@ ui <- dashboardPage(
#Boxplot
tabPanel("Boxplot",
checkboxInput("check_box", "Boxplot", FALSE),
selectInput("box_x", "x-axis", choices=colnames(coconut.df)),
selectInput("box_y", "y-axis", choices=colnames(coconut.df))
selectInput("box_x", "x-axis", choices=colnames(coconut.df))#,
#selectInput("box_y", "y-axis", choices=colnames(coconut.df))
),
#MAP
tabPanel("Map",
......
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