使用数据调用反应函数来呈现UI

Question

我有以下数据集。我想选择汽车品牌，它应该在下一个选择中自动更新该品牌的相应型号 例如，数据集如下

dataset.csv  KIA         Ford
            Sportage   Mustang
            sorento      Explorer

代码：

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

尝试

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

您不能将变量放在$的右侧，而是使用[]。