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)