Add_tooltip doesn't work in ggvis in R

I want to add a tooltip containing all the variables. But when I use this code, I get the following error:

Error in $ add handlers (handler, key, tail): key / is already in use

If I don't use it add_tooltip

, the plot is created without any problem. (Add_tooltip is at the bottom of the server .R)

Please help, I am really upset.

I am building a brilliant app with the following ui and server :



library(shiny) # load shiny at beginning at both scripts
shinyUI(fluidPage( # standard shiny layout, controls on the
  # left, output on the right
  titlePanel("Relative Velocity vs Distance Gap"), # give the interface a title
                sidebarPanel( # all the UI controls go in here
                  radioButtons(inputId = 'dfid', label = h4("Select Data:"), 
                               choices = c("Coordinate Approach",
                                           "Sum Approach")),                  
                  selectInput(inputId="vid", label=h4("Select Vehicle ID:"), choices = vehid)
                mainPanel( # all of the output elements go in here

                  h3("Plot"), # title with HTML helper
                  plotOutput("plot") # this is the name of the output
                  # element as defined in server.R




library(shiny) # load shiny at beginning at both scripts
shinyServer(function(input, output) { # server is defined within
  # these parentheses <- reactive({switch(input$dfid, "Coordinate Approach"=df1, "Sum Approach"=df2)})

  output$plot <- renderPlot({    <- subset(,$Vehicle.ID==input$vid)
    tittle <- unique($Vehicle.class)

    mtc <-
    mtc$id <- 1:nrow(mtc)

    all_values <- function(x) {
      if(is.null(x)) return(NULL)
      row <- mtc[mtc$id == x$id, ]
      paste0(names(row), ": ", format(row), collapse = "<br />")

    mtc %>% ggvis(x = ~relative.v, y = ~gap.dist, key:=~id) %>%
      layer_points() %>%
      add_tooltip(all_values, "hover")  

    #ggplot(data=, mapping = aes(x=relative.v, y=gap.dist, color=as.factor(p))) + 
     # geom_point() + ggtitle(tittle) + labs(x='Relative Velocity (ft/s)', y='Gap (feet)')  + theme_bw() #+ my.theme()



Another unrelated issue is that when the app is launched, the shiny app is launched in the window, but the ggvis graph is generated in the Viewer panel.

How can I display a plot in a window in the Shiny app?


source to share

All Articles