r - Shiny での ggvis のインタラクティブ性

Question

ホバー要素を使用して光沢のある ggvis プロットを埋め込もうとしていますが、光沢のある (つまりホバー要素) でレンダリングされないようです。以下は、サーバーおよび UI コンポーネントです。

サーバー.R:

library(choroplethrAdmin1)
library(choroplethr)
library(ggvis)
library(dplyr)

jor<-get_admin1_map("jordan")
jor$total <- runif(983) * 100


jor %>% ggvis(~long, ~lat) %>%
layer_paths(data = jor %>% group_by(name), 
          strokeWidth := 0, fill = ~total) %>%
hide_axis("x") %>% hide_axis("y") %>%
add_tooltip(function(data){paste("Gov: ", data$name, "<br>", "Total: ", as.character(data$lat))}, "hover")

shinyServer(function(input, output) {

jor%>%
ggvis(~long, ~lat) %>%
layer_paths(data = jor %>% group_by(name), 
          strokeWidth := 0, fill = ~total) %>%
hide_axis("x") %>% hide_axis("y") %>%
bind_shiny("p")
})

ui.R

library(shiny)
library(ggvis)

shinyUI(fluidPage(


titlePanel("Hello Shiny!"),


mainPanel(
  ggvisOutput("p")
)
))

コードに何か問題がありますか、それとも自然ですか? ggvis のインタラクティブ性が Shiny で失われるとしたら、それは本当に残念なことです。その場合、代替手段はありますか？