在ggvis中设置工具提示的悬停持续时间

Question

使用set_options（hover_duration = 2000）在此示例中起作用：

library(ggvis)

mtcars %>%
    ggvis(~wt, ~mpg) %>%
    layer_points(fill.hover := "red") %>% 
    set_options(hover_duration = 2000)

但是，该选项似乎不适用于工具提示的悬停，例如：

mtcars %>%
    ggvis(~wt, ~mpg) %>%
    layer_points(fill.hover := "red") %>% 
    add_tooltip(function(x) 
        "<a href='http://www.google.com'>link here</a>", "hover") %>% 
    set_options(hover_duration = 2000)

有关如何使工具提示保持足够长时间点击链接的任何想法？