Question

我正在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

我有办法照顾她吗？

Answer 1

如评论中所述，这是一个与网站上其他问题非常相似的问题，答案也非常相似。但是，请注意，尽管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)

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

1 个答案: