library(shiny)
library(tidyverse)
isikud=read_csv("https://www.tlu.ee/~jaagup/andmed/muu/estonia_reisijad.txt")
ui <- fluidPage(
    titlePanel("Isikute vanuste histogramm"),
    checkboxInput("kast1", "ainult mehed"),
    plotOutput("joonis1")
)

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

shinyApp(ui = ui, server = server)