Temat: Projekt w Shiny

Witam,
pierwszy raz mam do czynienia z Shiny- a do tego nie jestem zbyt biegły w eRze. Potrzebuje jednak (jak na razie przy dużych nakładach czasu) wykonać w tym pakiecie projekt na studia.
Dlatego chciałbym prosić o pomoc w dodaniu przycisku, którym będzie można wybrać województwo dla histogramu. Wszystko działa do momentu, gdy próbuję przypisać przycisk do histogramu- póki histogram i przycisk są nieprzypisane to wszystko się wyświetla. baza danych to 1 zmienna factor o 16 poziomach- oczywiście to województwa oraz kilka zmiennych numerycznych. Na histogramie chcę pokazać dochody powiatów- czyli zmienna numeric- x2016 .
Bedę wdzięczny za każdą pomoc! :)
Kod wygląda następująco:

Przycisk w ui:
selectInput("rejon", "rejon:",
c("DOLNOSLASKIE"="DOLNOSLASKIE",
"KUJAWSKO-POMORSKIE"="KUJAWSKO-POMORSKIE",
"LUBELSKIE"="LUBELSKIE",
"LUBUSKIE"="LUBUSKIE",
"LODZKIE"="LODZKIE",
"MALOPOLSKIE"="MALOPOLSKIE",
"MAZOWIECKIE"="MAZOWIECKIE",
"OPOLSKIE"="OPOLSKIE",
"PODKARPACKIE"="PODKARPACKIE",
"PODLASKIE"="PODLASKIE",
"POMORSKIE"="POMORSKIE",
"SLASKIE"="SLASKIE",
"SWIETOKRZYSKIE"="SWIETOKRZYSKIE",
"WARMINSKO-MAZURSKIE"="WARMINSKO-MAZURSKIE",
"WIELKOPOLSKIE"="WIELKOPOLSKIE",
"ZACHODNIPOMORSKIE"="ZACHODNIPOMORSKIE"))

kod w server:
output$distPlot <- renderPlot({


x<-dane$X2016[
dane$rejon== input$Rejon
]
bins <- seq(min(x), max(x), length.out = input$bins + 1)

hist(x, breaks = bins, col = "#75AADB", border = "white",
xlab = "dochod 2016",
main = "dochody powiatow w 2016 roku",input$rejon)

})

Pozdrawiam,
Mateusz