R 使用ggvis实现单独的悬停和单击工具提示

我想实现一个悬停工具提示来查看摘要详细信息，以及一个单击工具提示来查看完整详细信息，其中包括一些超链接。我可以单独实现这些功能，但当同时实现时，悬停操作也会终止鼠标输出上的单击工具提示。有什么解决办法吗

require(ggvis); require(shiny)

headline = function(x) "Now click on the point"
all_values = function(x) "<a href='http://google.com/'>I want to click here</a>"

server = function(input, output, session) {
  observe({
    ggvis(mtcars, ~disp, ~mpg) %>% layer_points() %>%
      add_tooltip(headline, 'hover') %>%
      add_tooltip(all_values, 'click') %>% 
      bind_shiny('ggvis_plot', 'ggvis_ui')
  })
}

ui = fluidPage( uiOutput("ggvis_ui"), ggvisOutput("ggvis_plot"))
shinyApp(ui, server)

require（ggvis）；需要（有光泽）
headline=功能（x）“现在点击该点”
所有_值=函数（x）”
服务器=功能（输入、输出、会话）{
观察({
ggvis（mtcars、~disp、~mpg）%%>%layer_points（）%%>%
添加工具提示（标题“悬停”）%>%
添加工具提示（所有值，'单击'）%>%
绑定（“ggvis\u plot”、“ggvis\u ui”）
})
}
ui=流体图像（uiOutput（“ggvis_ui”）、ggvis输出（“ggvis_绘图”））
shinyApp（用户界面、服务器）