如何将工具提示信息存入Shiny（R）中的反应变量

Question

我制作了一个闪亮的应用程序，以显示ggvis散点图。 我设法通过使用工具提示功能将鼠标悬停在其上来显示“点特征”（标签，变量等）。 我的问题是我想将这些“点特征”放入一个反应变量中。 我的目标是显示对应于散点图下方点的时间系列图。 任何想法？

这是ggvis图的脚本：

  vis<-reactive({
    all_values <- function(x) {
      if(is.null(x)) return(NULL)
      paste0(names(x), ": ", format(x), collapse = "<br />")
    }

    xvar <- prop("x", as.symbol(input$variable))
    yvar <- prop("y", as.symbol(input$variable2))
    labvar <- prop("fill", as.symbol(input$vlabel))

    newdata %>%
      ggvis(x=xvar, y=yvar ) %>%
      layer_points(size := 50, size.hover := 200, fillOpacity := 1, fillOpacity.hover := 0.75,
                   fill=labvar, key:=~Code)%>%
      add_tooltip(all_values, "hover")%>%
      set_options(duration=500)

  })

  vis %>% bind_shiny ("plotggvis","plotggvis_ui")