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 ht

Answer 1

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
  })