library(shiny)
library(tidyverse)
tekstid=read_csv("http://www.tlu.ee/~jaagup/andmed/keel/korpus/dokkoik.txt")

ui <- fluidPage(
  titlePanel("Sonade asukohad"),
  sliderInput("maxpikkus", "Tähti tekstis", min=1, max=2000, 
              value=5, animate = TRUE, step=10 ),
  selectInput("emakeel", "Emakeel", c(unique(tekstid$emakeel))),
  plotOutput("distPlot")
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    tekstid %>% filter(tahti<=input$maxpikkus, emakeel==input$emakeel) %>% 
      ggplot(aes(sonu, lauseid))+geom_point() +xlim(0, 500) +ylim(0, 100)
  })
}

shinyApp(ui = ui, server = server)