R 将ggvis集成到系统中时出错

我试图学习如何用ggvis图替换shiny中的静态图。有了下面的ui.R和server.R文件，当我的绘图输出为base-R或ggplot时，我可以得到一个工作非常好的闪亮应用程序。当我尝试使用ggvis时，我得到了以下错误

处理程序$addhandler，key，tail中出错：key/已在使用中

我尝试将文件的位置更改为其他目录，清除我的全局环境，等等。到目前为止，似乎没有任何效果

我试图复制最简单的可复制示例。下面是在我的机器上重现的错误。我正在输入与ui.R和server.R存储在同一文件夹中的csv文件中的数据。我添加了一些数据的dput，这些数据可用于复制csv文件

以下是一个例子：

用户界面

服务器.R

提前谢谢。我在显示与错误相关的所有可能的详细信息的同时，尽量减少此错误。

在server.R中

  output$ggvisplot_ui <- renderUI({
    ggvisOutput("ggvisplot")
  })

  dl <- mtcars
  dl %>%
    ggvis(~mpg, ~wt) %>% 
    layer_points() %>% 
    bind_shiny("ggvisplot")

在server.R中

  output$ggvisplot_ui <- renderUI({
    ggvisOutput("ggvisplot")
  })

  dl <- mtcars
  dl %>%
    ggvis(~mpg, ~wt) %>% 
    layer_points() %>% 
    bind_shiny("ggvisplot")

---

被低估的答案。如果可以的话，我会投100票。非常感谢这一次！被低估的答案。如果可以的话，我会投100票。非常感谢这一次！

dput(mydf)

structure(list(player = c("CB Fry", "CB Fry", "G Boycott", "G Boycott", 
                          "G Boycott", "G Boycott", "MJ Slater", "MJ Slater", "MJ Slater", 
                          "MJ Slater", "MJ Slater", "MJ Slater", "MJ Slater", "MJ Slater", 
                          "SK Warne", "SK Warne", "SK Warne", "SK Warne", "SK Warne", "SK Warne"
), team = c("England", "England", "England", "England", "England", 
            "England", "Australia", "Australia", "Australia", "Australia", 
            "Australia", "Australia", "Australia", "Australia", "Australia", 
            "Australia", "Australia", "Australia", "Australia", "Australia"
), runs = c(1L, 50L, 68L, 31L, 30L, 23L, 26L, 16L, 123L, 1L, 
            45L, 43L, 28L, 10L, 15L, 2L, 0L, 14L, 2L, NA)), row.names = c(NA, 
                                                                          -20L), .Names = c("player", "team", "runs"), class = "data.frame")

  output$ggvisplot_ui <- renderUI({
    ggvisOutput("ggvisplot")
  })

  dl <- mtcars
  dl %>%
    ggvis(~mpg, ~wt) %>% 
    layer_points() %>% 
    bind_shiny("ggvisplot")

  mainPanel(
    htmlOutput("ggvisplot_ui")
  )