Shiny 中的动态 ggvis 对象

我正在尝试向 Shiny 应用程序添加动态 ggvis 绘图。首先，用户选择一个维度，然后从该维度添加项目。

对于 global.R 和示例数据，请参阅https://gist.github.com/tts/a41c8581b9d77f131b31

服务器.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(

  titlePanel('Some (alt)metric data for articles published since 2010'),

  sidebarLayout(
    sidebarPanel(
      selectInput(
        inputId = "dim", 
        label = "Dimension", 
        choices = dimensions,
        selected = c("Title")),
      uiOutput("items")
      ),


    mainPanel(

      tabsetPanel(
        # I'll add more tabs
        tabPanel("Plot with ggvis", ggvisOutput("gv"))
      )
    )
  )
))

还行吧

1. 一开始，当没有选择任何项目时，所有数据都会被绘制出来。这是一个 hack，因为如果没有提供数据， ggvis 对象会抛出错误。
2. 当删除所有选定的项目（与 1 相同）并选择另一个维度时

但是当我尝试切换到另一个维度而不先删除项目时，我得到以下信息：

Error in `$<-.data.frame`(`*tmp*`, "keys", value = c(1L, 0L)) : 
replacement has 2 rows, data has 0

我知道 ggvis 是非常新的并且在不断发展，但我怀疑闪亮的反应值中只是有一些不同步的东西。如果有人能指出我做错了什么，非常感谢！

导致该错误的原因是您的 data.frame 具有零行并产生了结果1:0。 你可以改变你的selected功能：

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