R ggvis связанный_щетка не реагирует

Question

У меня есть следующий код в моем Server.R

data_agg_plot1<- reactive({

    brush1 <- linked_brush(keys = data_agg()$id, "navy" )

    data_agg <- data_agg()
    plot1<-data_agg%>%
      ggvis(x = ~dates_all) %>%
      group_by(factor(dates_all.1)) %>%
      layer_points(y =  ~ value, fill =~dates_all.1, shape =~dates_all.1) %>%
      layer_paths(y =  ~ value, stroke = ~dates_all.1 , strokeOpacity := 0.5) %>%
      scale_ordinal("fill", range = c("green", "red", "blue"))%>%
      scale_ordinal("shape", range = c("triangle-up","triangle-down","circle")) %>%
      scale_ordinal("stroke",range=c("green","red","blue")) %>%
      brush1$input() %>%
      hide_legend(c('stroke','fill'))%>%
      add_legend(c('shape','fill'),
                 title = "Symbol", orient = "left",
                 values = c("New hires", "Attrition" , "Net Growth"),
                 properties = legend_props(
                   title = list(fontSize = 16))) %>%
      add_axis("x",properties= axis_props(labels = list(angle=60,align = "left")),
               tick_padding =0,
               title = "") %>%
      add_axis("y", title = "Total Count") %>%
      set_options(width = "auto",height = 400) %>%
      scale_numeric('y',clamp = TRUE)

    return(list(plot1,brush1))
  })

так что это реактивная функция, которая возвращает мне список из 2 функций, графика и моего объекта кисти.

цель этого состоит в том, чтобы я мог сделать свои ключи реагирующими - это то, что я могу сделать дополнительный график, основываясь на выборе моего пользователя. думать о нем, как о втором сюжете, зависит от того, что первый пользователь выделит на первом графике.

это мой следующий код:

  plot1_data<-reactive({
    data_agg_plot1()[[1]]
  })
  plot1_data%>%bind_shiny("plot1")


  selected_plot1 <- reactive({
    data_agg_plot1()[[2]]
  })

  output$test <- renderPrint({
    temp <- selected_plot1()$selected()
    print(temp)
  })

однако, когда я распечатываю выбор, все это ложно,

пожалуйста, обратитесь к изображению ниже:

Кто-нибудь может объяснить мне, как это преодолеть?

я очень подозреваю, что мне нужно переписать мою функцию связной кисти,

я пробовал оба решения из:

Связанная кисть в ggvis не может работать в Shiny при изменении данных

Но это не работает.