如何使用 sliderInput 在 R Shiny 中输入 2 个以上的值

Question

传统上，sliderInput 函数是

sliderInput(inputId, label, min, max, value, step = NULL, round = FALSE, format = NULL, 
locale = NULL, ticks = TRUE, animate = FALSE, width = NULL, sep = ",", 
pre = NULL, post = NULL, timeFormat = NULL, timezone = NULL, dragRange = TRUE)

如果我指定

sliderInput("range","range",min=-3,max=3,value=c(-1,1))

它输入的范围是-1到1。但是，有一个函数的参数格式为days_included=c(-2,-1,0,1,2)。在这种情况下，如果我设置

，我就不能使这个功能起作用

sliderInput("range","range",min=-3,max=3,value=c(-2,2))

因为它确实不符合要求的格式。所以这是我的问题，无论如何要使这个功能起作用？我在 sliderInput 中尝试了 "step" 参数但失败了。

Answer 1

您的滑块 returns 有两个值，如果您想要介于两者之间的所有整数，则必须使用这些值和 : 或 seq 创建一个序列函数。

所以基本上你需要input$range[1]:input$range[2]

最小示例：

library(shiny)
rm(ui) ; rm(server)

ui <- fluidPage(
  br(),
  sliderInput("range","range",min = -3, max = 3, value = c(-2, 2)),
  div(verbatimTextOutput("out1"), style = "width: 300px;")
)

server <- function(input, output) { 

  output$out1 <- renderText({
    # seq.int(from = input$range[1], to = input$range[2])
    input$range[1]:input$range[2]
  })

}
shinyApp(ui, server)

如何使用 sliderInput 在 R Shiny 中输入 2 个以上的值

How to use sliderInput to to input more than 2 values in Rshiny

r

shiny

shiny-server

shinydashboard