UIをレンダリングするためのデータを含むリアクティブ関数を呼び出す

Question

次のデータセットがあります。

server <- function(input, output) { 
    abc<-reactive({ 
     abc <- fread("dataset.csv") 
    }) 
    output$choose_brand<-renderUI({ 
     selectInput("brand","brand",names(abc())) 
    }) 
    output$choose_model<-renderUI({ 
     # the error is here.how can I call dataset 
     # abc and select a column from that dataset 
     selectInput("model","model",a()$input$brand) 
    }) 
} 

Answer 1

が

試してみてください。

dataset.csv KIA   Ford 
      Sportage Mustang 
      sorento  Explorer 

コード次のように例えばデータセットがあると言う私は車のブランドを選択すると、自動的に次の選択 にそのブランドのために対応するモデルを更新する必要があります

selectInput("model","model",abc()[input$brand]) 

$の右側に変数を配置することはできません。代わりに[]を使用してください。