library(shiny)


ui <- fluidPage(
  
  titlePanel("Shiny app!"),
  
  sidebarLayout(
    
    sidebarPanel(
      h3("område for instillinger"),
      selectInput("velg_farge", label = "Histogram farge",
                  choices = c("gul", "rød", "blå", "grønn")),
      sliderInput("antall_punkter", "Antall datapunkter", 
                  min=0, max=1000, value = 500)
    ),
    
    mainPanel(
      tabsetPanel(
        tabPanel("Fane1",
                 plotOutput("histogram")
                 ),
        tabPanel("Fane2"),
        tabPanel("Fane3")
      )
    )
  )
)


server <- function(input, output) {
  
  output$histogram <- renderPlot({
    if(input$velg_farge == "gul") farge = "yellow"
    if(input$velg_farge == "rød") farge = "red"
    if(input$velg_farge == "blå") farge = "blue"
    if(input$velg_farge == "grønn") farge = "green"
    
    hist(rnorm(input$antall_punkter), col = farge)
  })
  
}

shinyApp(ui, server)