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)