conditionalPanelが光沢のある状態でinputSelectの項目数に基づいて

Question

conditionalPanelを、selectInputドロップダウンボックスの項目数に基づいて実装しようとしています。しかし

runApp(
    list(ui = fluidPage(
    textInput("in_number", "number",1), 
    uiOutput("dropdown"), 
    conditionalPanel("input.dropdown >= 3", p("show some stuff")) 
), 

    server = function(input, output, session) { 

    output$dropdown <- renderUI({ 
     selectInput("dropdown","My Dropdown", c(1:input$in_number)) 
    }) 
    } 
) 
) 

：

は、私は以下の通りそれはドロップダウンの値に基づいてされたときに動作するように条件を得ることができます

（textInputフィールドでは、ドロップダウンの項目数を設定することができます） conditionalPanelを次のように変更した場合：

これは機能しません。開発ツールコンソールでエラーメッセージが表示される"未定義の長さ 'プロパティを読み取ることができません。

これは、光沢がドロップダウンアイテムをどのように定義するかと関係があります。

編集：私のニーズを明確にする。 ドロップダウンの値を評価するのではなく、ドロップダウン内の項目数を評価できるJavaScript条件を実行する方法はありますか？

Answer 1

あなたは今何を意味しているのですか。 shinyjsパッケージとその機能のtoggleを使用することをお勧めします。

rm(list = ls()) 
library(shiny) 
library(shinyjs) 
runApp(
    list(ui = fluidPage(
    shinyjs::useShinyjs(), 
    textInput("in_number", "number",3), 
    uiOutput("dropdown"),  
    p(id = "mydiv", "show some stuff") 
), 

    server = function(input, output, session) { 
    output$dropdown <- renderUI({ 
     selectInput("dropdown1","My Dropdown", c(1:input$in_number)) 
    })  

    observe({ 
     toggle(id = "mydiv", condition = as.numeric(input$in_number) >= 3) 
    }) 
    } 
) 
)