43 lines
1.3 KiB
R
43 lines
1.3 KiB
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),
|
||
|
|
|
||
|
|
textOutput("selected_select"),
|
||
|
|
|
||
|
|
sliderInput("sliderInput",
|
||
|
|
p(strong('Zakres:')),
|
||
|
|
min = 0,
|
||
|
|
max = 100,
|
||
|
|
value = c(0,100)),
|
||
|
|
|
||
|
|
textOutput("slider_range")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
server <- function(input, output) {
|
||
|
|
|
||
|
|
output$selected_select <- renderText({
|
||
|
|
paste("Zaznaczyłeś opcję: ", input$selectInput)
|
||
|
|
})
|
||
|
|
|
||
|
|
output$slider_range <- renderText({
|
||
|
|
paste("Wybrałeś zakres od", input$sliderInput[1], "do", input$sliderInput[2])
|
||
|
|
})
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
shinyApp(ui=ui, server=server)
|