s332534/projekt-shiny-iwab
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Niewielkie zmiany UI.

Browse Source
This commit is contained in:
Maciej 2020-06-28 16:33:11 +02:00
parent 45be243237
commit 4af5e8227f
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ui.R
View File

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