Question

我想在我的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

如果我将数据框df置于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对象：

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

```{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))
  })
}
)

```

Answer 1

确定了将dplyr函数应用于xts个对象的问题，但可能尚未解决。如果您的dygraph()功能与时间索引无关，那么您只需使用coredata()中的filtered <- filter(coredata(data), network == intput$networkname)。在另一种情况下，您必须在xts和data.frame之间来回转换。

在闪亮的应用程序中过滤xts对象

1 个答案: