Dynamic ggvis object in Shiny

Question

I'm trying to add a dynamic ggvis plot to a Shiny app. First, user picks a dimension, and then adds items from that dimension. For global.R and sample data, see https://gist.github.com/tts/a41c8581b9d77f131b31 server.R: ``` shinyServer(function(input, output, session) { # Render a selectize drop-down selection box output$items <- renderUI({ selectizeInput( inputId = 'items', label = 'Select max 4. Click to delete', multiple = TRUE, choices = aalto_all[ ,names(aalto_all) %in% input$dim], options = list(maxItems = 4, placeholder = 'Start typing') ) }) selected <- reactive({ if (is.null(input$items)) { return(aalto_all) } df <- aalto_all[aalto_all[[input$dim]] %in% input$items, ] df$keys <-seq(1, nrow(df)) df }) selected %>% ggvis(~WoS, ~NrOfAuthors, fill = ~School, key := ~keys) %>% layer_points() %>% add_tooltip(show_title) %>% bind_shiny("gv") show_title <- function(x=NULL) { if(is.null(x)) return(NULL) key <- x["keys"][[1]] selected()$Title20[key] } }) ``` ui.R: ``` shinyUI(fluidPage…

Accepted Answer

The error is caused because you have a data.frame with zero rows and have a resulting `1:0`. You can change your `selected` function to:

```
 selected <- reactive({
    if (is.null(input$items)) {
      return(aalto_all)
    }
    df <- aalto_all[aalto_all[[input$dim]] %in% input$items, ]
    df$keys <-seq_along(df[,1])
    if(nrow(df) == 0){
      return(aalto_all)
    }
    df
  })
```

Dynamic ggvis object in Shiny

Solution

Problem