R—多个反应子集/滑块

我有一个闪亮的仪表板，试图创建多个滑块，根据数据框中的不同列对数据进行子集化

我让日期滑块工作，但我试图通过（0,1）之间的连续分数向量过滤的滑块不工作。。。。我该如何补救

当我通过“daterange[1]”和“daterange[2]”对其进行过滤时，HireDate过滤器单独工作。。。。[1]和[2]命令是否将输入范围链接到ui.R部分上的开始日期和结束日期

代码如下：

server.R

shinyServer(function(input, output) {


  output$distPlot <- renderPlot({
# generate bins based on input$bins from ui.R
x    <- reactive({subset(DATA, HireDate >= input$daterange[1] & 
                           HireDate <= input$daterange[2] & Value >= input$scorecalc[1]   & Value >= input$scorecalc[1] <= input$scorecalc[2]) })
dd <- x()


bins <- seq(0, 1, length.out = input$bins + 1)


hist(dd$ResumeScore, breaks = bins)

# hist(dd$Value, breaks = bins, col = 'darkgray', border = 'white') # 
})
})

library(shiny)
shinyUI(pageWithSidebar(
  # Application title
  headerPanel("Dashboard"),
  sidebarPanel( 
    sliderInput("bins",
                "Number of bins:",
                min = 1,
                max = 50,
                value = 30),

    sliderInput("scorecalc",
                "Score:",
                min = 0,
                max = 1,
                            value = 0),


    dateRangeInput("daterange", "Date range:",
                   start  = "2016-08-01",
                   end    = "2016-12-31",
                   min    = "2016-08-01",
                   max    = "2016-12-31",
                   format = "yyyy/mm/dd",
                   separator = "-"),

    submitButton(text="Update!")


    ),
     # OUTPUT PART
    mainPanel(
      tabsetPanel(
      tabPanel("Tab 1", h4("Global Histogram"),plotOutput("distPlot"))

     )
     )
     )) 

1-放置整个

x2-在
scorecalc
的定义中设置
值=c（0,1）
以创建范围滑块1-放置整个
x2-在
scorecalc
的定义中设置
值=c（0,1）
以创建范围滑块