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))

因为它与所需的格式不匹配。所以这是我的问题，无论如何要使这个功能起作用？我试过＆＃34; step＆＃34; sliderInput内的参数但失败了。

Answer 1

您的滑块返回两个值，如果您想拥有介于两者之间的所有整数，则必须使用这些值以及:或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在Rshiny中输入2个以上的值

1 个答案: