Commit f5e5da56 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

boxplot

parent 87b68a73
...@@ -397,6 +397,10 @@ server <- function(input, output, session) { ...@@ -397,6 +397,10 @@ server <- function(input, output, session) {
#TODO: Boxplot View #TODO: Boxplot View
output$box <- renderPlot({ output$box <- renderPlot({
print("BOX wird aufgerufen") 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 #MAP
......
...@@ -106,8 +106,8 @@ ui <- dashboardPage( ...@@ -106,8 +106,8 @@ ui <- dashboardPage(
#Boxplot #Boxplot
tabPanel("Boxplot", tabPanel("Boxplot",
checkboxInput("check_box", "Boxplot", FALSE), checkboxInput("check_box", "Boxplot", FALSE),
selectInput("box_x", "x-axis", choices=colnames(coconut.df)), selectInput("box_x", "x-axis", choices=colnames(coconut.df))#,
selectInput("box_y", "y-axis", choices=colnames(coconut.df)) #selectInput("box_y", "y-axis", choices=colnames(coconut.df))
), ),
#MAP #MAP
tabPanel("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