条形图的ggvis滑块

Question

使用R版本3.2.2。我正在尝试使用滑块创建一个带有日期的条形图，其中有一个滑块来控制显示的日期值的数量。我无法确定哪个选项可以帮助我做到这一点。我试过了：

library(dplyr)
library(ggvis)
library(shiny)
shinyServer(function(input,output){

  final_data %>%
    ggvis(~Date, ~work_left) %>%
    layer_bars(width = input_slider(min = 1, max = 10)) %>%

以及其他一些选项，包括我在其他帮助网站上找到的尺寸。但它们都不起作用。

我的ui.r是主面板中图表的简单显示。 任何帮助表示赞赏。感谢