Commit f5e5da56 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl
Browse files

boxplot

parent 87b68a73

dashboard/server.R

+4 −0
Original line number Original line Diff line number Diff line
@@ -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

dashboard/ui.R

+2 −2
Original line number Original line Diff line number Diff line
@@ -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",