Как отмечается в комментариях, это очень похожий вопрос на другие, задаваемые на сайте, и ответ также довольно похож.Однако учтите, что, хотя sliderTextInput()
позволит вам отображать значения, которые вы хотите увидеть, вам придется иметь дело с данными разных типов:
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
sliderTextInput(inputId = "values",
label = "Values:",
choices = c(seq(1,10), "11-15", "16-20", "21-25", "26-30")),
sliderTextInput(inputId = "values2",
label = "Values:",
choices = c(seq(1,100,by=1), seq(105,500,by=5))),
verbatimTextOutput("sliderval"),
verbatimTextOutput("sliderval2")
)
server <- function(input, output) {
output$sliderval <- renderText({paste("Slider 1", input$values, class(input$values), sep="; ")})
output$sliderval2 <- renderText({paste("Slider 2", input$values2, class(input$values2), sep="; ")})
}
shinyApp(ui, server)