DT和Crosstalk可以动态链接两个表吗？

Question

我想链接两个表，以便一个表中的选择出现在另一个表中。例如，可以在一个表中选择一行作为另一个表的子集吗？在我的代表中，两个表独立工作。我怎样才能链接它们？

library(crosstalk)
library(tidyverse)
library(DT)

df <- data.frame("text"= c("a","b","c"),
                 "number"= c(1:3))

shared_data <- SharedData$new(df, key = ~id)


shared_data %>% DT::datatable()
shared_data %>% DT::datatable()

Answer 1

我能做的最好的事情就是使用过滤器来编辑两个表

filter_checkbox("selection", "test", shared_data, ~df$text, inline = TRUE)