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"))
)
)
)
))
これで結構です
- 最初は、アイテムが選択されておらず、すべてのデータがプロットされています。データが提供されない場合、ggvis オブジェクトはエラーをスローするため、これはハックです。
- 選択したすべての項目が削除され (1 と同じ)、別のディメンションが選択されたとき
しかし、最初にアイテムを削除せずに別のディメンションに切り替えようとすると、次のようになります。
Error in `$<-.data.frame`(`*tmp*`, "keys", value = c(1L, 0L)) :
replacement has 2 rows, data has 0
ggvis が非常に新しく、常に開発されていることは理解していますが、Shiny のリアクティブ値に同期していないものがあるだけだと思います。誰かが私が間違っていることを指摘できたら、どうもありがとう!