与ggvis和闪亮联动刷牙不清爽答案

【问题标题】：Linked brushing not refreshing with ggvis and shiny与ggvis和闪亮联动刷牙不清爽
【发布时间】：2015-09-23 01:36:31
【问题描述】：

作为我闪亮应用程序的一部分，我正在尝试链接画笔，以便我可以通过画笔子集我的数据并在单独的 ggvis 图中显示该数据

相关（简单）代码如下：

  lb <- linked_brush(keys = 1:nrow(filteredData()), "red")

 observe({filteredData() %>%
  ggvis(~id, ~y) %>%
  layer_points() %>%
  layer_points(fill := lb$fill, size.brush := 400) %>%
  lb$input() %>%
  bind_shiny("plot")

filteredData() %>%
  ggvis(~id, ~y) %>%
  lb$input() %>%
  layer_points( data = reactive(filteredData()[lb$selected(), ])) %>%
  bind_shiny("plot3")
})

过滤后的数据是一个 df，它使用 col 的 x,y,y2,id 从上传的数据中提取选定的数据。它保存在响应式（{}）中

我的问题是，当我刷机时，它选择了一次数据，但是如果不重新加载我的应用程序就无法重新刷机，我可以绘制画笔，但它没有选择数据。

此外，当我选择大部分数据点时，画笔不起作用，因为点会变大，但不会变红并被选中。

此代码适用于其他示例，仅适用于我的应用程序，非常感谢您提供有关问题根源的任何帮助或建议

谢谢！

【问题讨论】：

标签： r shiny ggvis

【解决方案1】：

通过大量的摆弄，我发现解决方案在于用reactive(filteredData()) 或filteredData 替换filteredData()

【讨论】：