Niewielkie zmiany UI.

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",