library(shiny)
yhendus<-dbConnect(dbDriver("MySQL"), user="root",
                   password="root", host="localhost", dbname='film')
paring<-dbSendQuery(yhendus, 
        "SELECT film_type_id, title FROM efis_film_type_translation WHERE language='et'")
tyybinimed=fetch(paring, n=-1);
abi=tyybinimed$film_type_id
names(abi)=tyybinimed$title

ui <- fluidPage(
  selectInput("valikTyyp", "Filmi tüüp", abi),
  textOutput("tekst1")
)
server <- function(input, output) {
  arvutus <- reactive({
    paring<-dbSendQuery(yhendus, 
                        paste("SELECT production_year FROM efis_film JOIN
                              efis_film_type_rel ON efis_film_type_rel.film_id=efis_film.id
                              WHERE film_type_id='",input$valikTyyp,"'"))
    aastad=fetch(paring, n=-1)
    aastad
  })
  output$tekst1=renderText(nrow(arvutus()))
}

shinyApp(ui = ui, server = server)