R updateCheckboxGroupInput（）とselectinput（）を使用したキャッシングの値

Question

私は、selectInput（）値に基づいてcheckboxGroupInput（）を更新するShinyアプリケーションを構築しています。私はまた、入力値を再選択するたびに同じように表示されるように、選択/選択解除された値を保存したい。これを行うには、選択肢を格納するためにリアクティブ値を使用しています。

は、ここでおもちゃの例です：ほとんどの部分について

library(shiny) 

letters = c('A','B','C','D','E','F','G','H','I','J','K','L') 

words = list("A" = c("apples","aardvark","alabama"), 
       "B" = c("banana","baltimore","beehive"), 
       "C" = c("catastrophe","cantalope"), 
       "D" = c("dinosaur","dairy","dolphin"), 
       "E" = c("eager","elephant","ecumenical"), 
       "F" = c("fleming","florida","flight"), 
       "G" = c("gator","greater","gait"), 
       "H" = c("HI"), 
       "I" = c("igloo","ignominious","interesting"), 
       "J" = c("jogging","jumpsuit"), 
       "K" = c("kellog","kangaroo"), 
       "L" = c("lemon","lime","lemonjello")) 


ui <- fluidPage(

    selectInput("letter","Choose Letter",choices=letters,selectize=F), 

    # Initiate check box group 
    checkboxGroupInput('words_by_letter',label='Select Your Favorite Words',choices = c(1)) 

) 


server <- function(input, output, session) { 

    v_selected <- reactiveValues(
     "A" = c("apples","aardvark","alabama"), 
     "B" = c("banana","baltimore","beehive"), 
     "C" = c("catastrophe","cantalope"), 
     "D" = c("dinosaur","dairy","dolphin"), 
     "E" = c("eager","elephant","ecumenical"), 
     "F" = c("fleming","florida","flight"), 
     "G" = c("gator","greater","gait"), 
     "H" = c("HI"), 
     "I" = c("igloo","ignominious","interesting"), 
     "J" = c("jogging","jumpsuit"), 
     "K" = c("kellog","kangaroo"), 
     "L" = c("lemon","lime","lemonjello")) 

    observeEvent(input$letter,{   
    updateCheckboxGroupInput(session, 
     inputId = "words_by_letter", 
     choices = words[[input$letter]], 
     selected = v_selected[[input$letter]]) 

    }) 

    observeEvent(input$words_by_letter,{ 
    v_selected[[input$letter]] = input$words_by_letter 
    }) 

} 


shinyApp(ui = ui, server = server) 

、これは正常に動作します。ただし、（矢印ボタンを押したままで）入力をすばやくスクロールすると、最終的にチェックボックスグループの一部がすべてオフになります。私はこれが反応速度とJavascriptとの通信の速度と関係があると仮定していますが、それを修正する方法はわかりません。

ノート：「レター」ごとに別の条件付きパネルを使用してみましたが、これによってアプリの読み込み時間が大幅に増えるため、その戦略を使用したくないです。

Answer 1

これは競合状態のようですが、input$letterはshinyServerが更新するには速すぎて更新が遅れており、不整合なデータでリアクティブ状態を更新しようとします。たとえば、 "I"単語を "J"選択肢で試して上書きし、入力セレクタがそれ以上機能しなくなります。私は根本的な原因は簡単に修正されているとは思わない。

ただし、input$letterとinput$words_by_letterの値が一致している場合にのみ、リアクティブ状態を更新することで回避できます。

これは、実際のデータによっては機能しない場合があります。データを整理して、テストできる整合性条件が存在するようにする必要があります。ここのおもちゃの例では、選択した単語を、選択を初期化した単語と比較することができます。

input$words_by_letterの単語の最初の文字をinput$letterと照合して使用できましたが、これはあまりにも特殊なようでした。この方法では、選択したデータを選択の初期化と比較することが一般化する可能性が高くなります。ここで

コードです：