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("kõik"="k", "mehed"="m", "naised"="n")),
    selectInput("valik2", "Kategooria:", 
                c("kõik"="k", "töötajad"="t", "reisijad"="r")),
    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", ]
        }
        if(input$valik2=="t"){
            kuvatavad=kuvatavad[kuvatavad$Category=="C", ]
        }
        if(input$valik2=="r"){
            kuvatavad=kuvatavad[kuvatavad$Category=="P", ]
        }
        hist(kuvatavad$Age, xlim=c(0, 100))
    })
}

shinyApp(ui = ui, server = server)