在 Shiny 应用程序中过滤 xts 对象

我想在我的 Rmarkdown 中显示一个基本的 Shiny dygraph，它可以在网络之间切换。以下是数据示例：

> head(df)
           nightTrips dayTrips network
2014-05-03          0       16       1
2014-05-04          0        5       1
2014-05-05          0        8       1
2014-05-06          0        3       1
2014-05-07          0        0       1
2014-05-08          0        3       1
> nrow(df)
[1] 2239

如果我对数据帧dfwhere 进行子集化network=1，我可以成功地为单个网络渲染一个dygraph：

> head(test)
           nightTrips dayTrips
2014-05-03          0       16
2014-05-04          0        5
2014-05-05          0        8
2014-05-06          0        3
2014-05-07          0        0
2014-05-08          0        3

dygraph(test, main = "Network1") %>%
  dySeries("nightTrips", label = "Night Trips") %>%
  dySeries("dayTrips", label = "dayTrips") %>%
  dyOptions(stackedGraph = FALSE) %>%
  dyRangeSelector(height = 20)

但是，当我将数据绑定到一个数据帧中时，添加一个netowrk指定网络的额外列，将其转换为 xts 对象，然后尝试启动 Shiny 服务器 - 我收到一个错误，提示无法将过滤器应用于 xts 对象：

是否有针对此问题的已知解决方法？这是内联 Shiny 应用程序的代码：

```{r, echo = FALSE}
shinyApp(

  ui = fluidPage(
    titlePanel("Sample Timeseries"),

  sidebarLayout(
    sidebarPanel(
      uiOutput("networknames")
    ),
    mainPanel(
      dygraphOutput("networksgraph"))
  )
),

  server = function(input, output) {

    data <- df
    data <- as_xts(data, date_col = day)


    output$networksgraph <- renderDygraph({
      if (is.null(input$networkname)) return (NULL)
        filtered <- filter(data,
                           network == intput$networkname) %>%
        dygraph()

    })

    output$networknames <- renderUI({
    selectInput("networkname", "Select your Network",
                choices = c(1,2,3))
  })
}
)

```