library(shiny)
library(tidyverse)
ui=fluidPage(
  titlePanel("Sõnade asukohad"),
  sliderInput("nihe", "Nihke suurus: ", min=1, max=50, value=20, animate=TRUE),

  selectInput("lugu", "Vali lugu", c(unique(sonad$lugu), "koos")),
  checkboxInput("kasSonad", "Kas sõnad", TRUE),
  plotOutput("distPlot")
)

server=function(input, output){
  output$distPlot <- renderPlot({
     d=input$nihe/100
     if(input$lugu=="koos"){
       j=sonad %>%ggplot(aes(taishaalikuid, sulghaalikuid))+geom_jitter(width=d, height=d)
     } else {
      j= sonad %>% filter(lugu==input$lugu) %>% 
         ggplot(aes(taishaalikuid, sulghaalikuid))+geom_jitter(width=d, height=d)
     }
  })
}

shinyApp(ui=ui, server=server)