30 lines
940 B
R
30 lines
940 B
R
|
library(shiny)
|
||
|
|
|
||
|
|
ui <- fluidPage(
|
||
|
|
titlePanel('Spis powszechny'),
|
||
|
|
sidebarPanel(
|
||
|
|
div(style="width:200px;",
|
||
|
|
p('Stwórz mapy demograficzne za pomocą informacji ze spisu powszechnego USA w 2010 r.', style="color:grey"),
|
||
|
|
selectInput("selectInput",
|
||
|
|
p(strong('Wybierz zmienną do wyświetlenia')),
|
||
|
|
choices = list("Procent ludności białej",
|
||
|
|
"Procent Afroamerykanów",
|
||
|
|
"Procent Latynosow",
|
||
|
|
"Procent Azjatów"),
|
||
|
|
selected = 1),
|
||
|
|
sliderInput("sliderInput",
|
||
|
|
p(strong('Zakres:')),
|
||
|
|
min = 0,
|
||
|
|
max = 100,
|
||
|
|
value = c(0,100))
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
server <- function(input, output) {
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
shinyApp(ui=ui, server=server)
|