使用操作按钮过滤 table，使用串扰过滤第二个 table

Question

我有一个带有 1 个输入 select、一个操作按钮和两个 table 的 flexdashboard。我希望使用输入 select 过滤第一个 table，由操作按钮触发。然后我想根据 table 1 中的 selected 行过滤第二个 table。对于后者，我正在考虑使用串扰。

这有效（使用示例来自：Whosebug。com/questions/48581598/filter-two-tables-with-crosstalk）：

df1 <- structure(list(owner = structure(c(1L, 2L, 2L, 2L, 2L), .Label = c   ("John", "Mark"), class = "factor"), hp = c(250, 120, 250, 100, 110), car =    structure(c(2L, 2L, 2L, 1L, 1L), .Label = c("benz", "bmw"), class = "factor"),  id = structure(1:5, .Label = c("car1", "car2", "car3", "car4", "car5"), class = "factor")), .Names = c("owner", "hp", "car", "id"), row.names = c(NA, -5L), class = "data.frame")

df2 <- structure(list(car = structure(c(1L, 2L, 1L, 2L), .Label = c  ("benz","bmw"), class = "factor"), owner = structure(c(1L, 1L, 2L, 2L), .Label  = c("John", "Mark"), class = "factor"), freq = c(0L,1L, 2L, 2L)), .Names = c  ("car", "owner", "freq"), row.names = c(NA, -4L), class = "data.frame")

shared_df1 <- SharedData$new(df1, ~owner, group = "Choose owner")
shared_df2 <- SharedData$new(df2, ~owner, group = "Choose owner")

filter_select("owner", "Car owner:", shared_df1, ~owner)

DT::datatable(shared_df1)
DT::datatable(shared_df2)
#---------------------------

但是添加这个不会：

selectInput(inputId = 'owner', label = NULL, choices =c("All", "John", "Mark"), selected ="All")

actionButton("Find", "Find owner ")

observeEvent(input$Find,{
df1<-df1%>%filter(a==input$owner|input$owner=="All")
})

请帮忙

Answer 1

不完全清楚你想用第二个 table 做什么。至于第一个，您可以尝试创建一个反应性数据框，其中 returns 过滤后的数据框：

df1_filtered = reactive({
  if(input$owner != "All"){
    df1 %>% filter(owner == input$owner)
  } else {
    df1
  }
})

df2_filtered = reactive({
  if(condition for second table){
    # If you wanted to filter the second owners in the first df
    df2 %>% filter(owner %in% df1_filtered()$owner)
  } else {
    df2
  }
})


observeEvent(input$Find,{
  renderTable(df1_filtered())
})

但是请告诉我您想要做什么，我可以修改它。此外，我不是 100% 确定旧的 if-else 框架是响应式数据帧的最佳实践，但它对我来说效果很好。

使用操作按钮过滤 table，使用串扰过滤第二个 table

Filter table with action button and 2nd table with crosstalk

r

datatable

shiny

flexdashboard