需要在单个滑块中有两个不同的步骤答案

【问题标题】：Need to have two different steps in a single slider需要在单个滑块中有两个不同的步骤
【发布时间】：2019-03-27 23:22:28
【问题描述】：

我正在 R Shiny 中构建一个闪亮的仪表板，我需要在其中包含一个具有 2 个不同“步骤”的滑块

我需要的是从 0-10 以 1 为增量的滑块

即：1,2,3,4,5,6,7,8,9,10

然后从 11-30 以 5 为增量，即：11-15, 16-20, 21-25, 26-30

有没有办法让我照顾好它？

【问题讨论】：

stackoverflow.com/q/45776668/680068的可能重复
Shiny Slider Customized Values的可能重复
我是否正确理解您希望滑块显示第二组值的范围？
谢谢@phalteman 这有帮助.. 如果说我必须有一个高达 500 的范围，那么我怎么能这样做呢？例如，如果我必须有 1 - 200 以 1 为增量，然后 201 -500 以 5 为增量......那么我手动插入所有选项是不可行的......有没有办法我可以处理这个' ?
@phalteman 有没有办法在您的答案中包含的 choices = c(seq(1,10), "11-15", "16-20", "21-25", "26-30")) 语句中包含 step 参数？

标签： r shiny slider shinydashboard

【解决方案1】：

正如 cmets 中所述，这与网站上其他人提出的问题非常相似，答案也非常相似。但是请注意，虽然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)

【讨论】：