Question

作为我闪亮的应用程序的一部分，我正在尝试链接刷牙，以便我可以通过画笔对数据进行子集化并在单独的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从上传的数据中抽取选定的数据。它保存在被动（{}）

中

我的问题是，当我刷，它选择一次数据，但是我不能重新刷我没有重新加载我的应用程序，我可以绘制画笔，但它不会选择数据。

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

此代码适用于其他示例，仅在我的应用中，任何有关问题源于何处的帮助或建议都将非常感谢

谢谢！

Answer 1

通过大量的小动作，我发现解决方案在用filteredData()或reactive(filteredData())

替换filteredData时撒谎

使用ggvis和闪亮的

1 个答案: