如何使用复选框以交互方式过滤visNetwork中的节点/边？(使用R Shiny)

ui <- fluidPage(
  checkboxGroupInput("filter", "选择要过滤的属性：",
                     choices = c("属性1", "属性2", "属性3"),
                     selected = NULL)
)

server <- function(input, output) {
  observeEvent(input$filter, {
    filtered_nodes <- nodes_data[nodes_data$属性 %in% input$filter, ]
    filtered_edges <- edges_data[edges_data$属性 %in% input$filter, ]
    
    updateVisNetwork(
      session = session,
      "network",
      nodes = filtered_nodes,
      edges = filtered_edges
    )
  })
}

server <- function(input, output) {
  output$network <- renderVisNetwork({
    visNetwork(nodes_data, edges_data) %>%
      visOptions(highlightNearest = TRUE)
  })
}

library(shiny)
library(visNetwork)

# 节点数据
nodes_data <- data.frame(
  id = 1:5,
  label = c("节点1", "节点2", "节点3", "节点4", "节点5"),
  属性 = c("属性1", "属性2", "属性1", "属性3", "属性2")
)

# 边数据
edges_data <- data.frame(
  from = c(1, 1, 2, 3, 4),
  to = c(2, 3, 4, 5, 5),
  label = c("边1", "边2", "边3", "边4", "边5"),
  属性 = c("属性1", "属性2", "属性1", "属性3", "属性2")
)

ui <- fluidPage(
  checkboxGroupInput("filter", "选择要过滤的属性：",
                     choices = c("属性1", "属性2", "属性3"),
                     selected = NULL),
  visNetworkOutput("network")
)

server <- function(input, output, session) {
  observeEvent(input$filter, {
    filtered_nodes <- nodes_data[nodes_data$属性 %in% input$filter, ]
    filtered_edges <- edges_data[edges_data$属性 %in% input$filter, ]
    
    updateVisNetwork(
      session = session,
      "network",
      nodes = filtered_nodes,
      edges = filtered_edges
    )
  })
  
  output$network <- renderVisNetwork({
    visNetwork(nodes_data, edges_data) %>%
      visOptions(highlightNearest = TRUE)
  })
}

shinyApp(ui, server)