'library(shiny)
library(tidyverse)
isikud=read_csv("https://www.tlu.ee/~jaagup/andmed/muu/estonia_reisijad.txt")
ui <- fluidPage(
    titlePanel("Isikute vanuste histogramm"),
    selectInput("valik1", "Kelle vanused:", 
                c("koik"="k", "mehed"="m", "naised"="n")),
    plotOutput("joonis1")
)
# Lisage teine valik - tootajad/reisijad/koik

server <- function(input, output) {
    output$joonis1 <- renderPlot({
        kuvatavad=isikud
        print(input$kast1)
        if(input$valik1=="m"){
            kuvatavad=isikud[isikud$Sex=="M", ]
        }
        if(input$valik1=="n"){
            kuvatavad=isikud[isikud$Sex=="F", ]
        }
        hist(kuvatavad$Age)
    })
}

shinyApp(ui = ui, server = server)