diff --git a/ui.R b/ui.R index d126c00..b5317a2 100644 --- a/ui.R +++ b/ui.R @@ -37,7 +37,7 @@ shinyUI(navbarPage( "2016" = "2016", "2017" = "2017", "2018" = "2018" - ) + ), selected = "2018" ), checkboxInput("factor", "w przeliczeniu na 100 tys. mieszkańców", TRUE) ), @@ -77,7 +77,7 @@ shinyUI(navbarPage( "2016" = "2016", "2017" = "2017", "2018" = "2018" - ) + ), selected = "2018" ), selectInput( "vehicle", @@ -127,7 +127,7 @@ shinyUI(navbarPage( "2016" = "2016", "2017" = "2017", "2018" = "2018" - ) + ), selected = "2018" ), selectInput( "user", @@ -175,7 +175,7 @@ shinyUI(navbarPage( "2016" = "2016", "2017" = "2017", "2018" = "2018" - ) + ), selected = "2018" ), selectInput( "roadType", @@ -201,7 +201,17 @@ shinyUI(navbarPage( sidebarPanel( checkboxGroupInput("countries", label = h3("Wybierz państwa:"), - choices = list("Polska" = "PL", + choices = list("Polska" = "PL", + "Czechy" = "CZ", + "Belgia" = "BE", + "Dania" = "DK", + "Litwa" = "LT", + "Łotwa" = "LV", + "Holandia" = "NL", + "Rumunia" = "RO", + "Węgry" = "HU", + "Bułgaria" = "BG", + "Słowacja" = "SK", "Niemcy" = "DE", "Francja" = "FR", "Wielka Brytania" = "UK", @@ -246,7 +256,7 @@ shinyUI(navbarPage( "2016" = "2016", "2017" = "2017", "2018" = "2018" - ) + ), selected = "2018" ), selectInput( "victimType", @@ -291,7 +301,7 @@ shinyUI(navbarPage( "2016" = "2016", "2017" = "2017", "2018" = "2018" - ) + ), selected = "2018" ), selectInput( "germanyVictimType",