R 有两个滑块的闪亮应用程序：第二个滑块仅选择端点，而不是范围

我已经写了下面的R闪亮应用程序。用户从下拉菜单中选择“农场”，并从滑块中选择一个年值。我希望用户能够选择一个月的值范围，但第二个滑块只是选择月的结束点，而不是范围

下面是月滑块正在选择的内容，例如在下面的应用程序中创建的data.frame水果中的farm==1和year==2：

以下是我希望月份滑块选择的内容：

> fruit[fruit$farm == 1 & fruit$year == 2 & fruit$month %in% c(4:9),]
   farm year month   apples cherries
16    1    2     4 70.23774 82.18512
17    1    2     5 37.17340 83.47027
18    1    2     6 36.00925 73.27322
19    1    2     7 31.20337 98.30440
20    1    2     8 33.93355 63.92046
21    1    2     9 38.99675 66.07546

如何修改此代码，使所有选定的月份都包含在结果图中？这是我的闪亮应用程序：

如果选择范围，sliderInput将返回最小值和最大值，但不是该范围内的所有值。因此，您必须从两个返回值生成范围：

month %in% (input$codeInput3[1]:input$codeInput3[2])

编辑

正如马克指出的，我的解决方案只适用于整数；测试包含边框的范围的正确方法是：

month >= input$codeInput3[1] && month <= input$codeInput3[2]

---

您的答案在本例中有效，但在随后的一个案例中，我被告知需要使用：month>=input$codeInput3[1]&month

month %in% (input$codeInput3[1]:input$codeInput3[2])

month >= input$codeInput3[1] && month <= input$codeInput3[2]