Shiny中的動態ggvis對象

Question

我正在嘗試將動態ggvis圖添加到Shiny應用程序中。 首先，用戶選擇一個維度，然后添加該維度中的項目。

有關global.R和示例數據，請參閱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(

  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是非常新的並且在不斷發展，但我懷疑Shiny反應值中只有一些東西不同步。 如果有人能指出我做錯了什么，非常感謝！

Answer 1

導致該錯誤是因為您有一個零行的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
  })