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)