有光泽的：renderUI（）没有显示出来

Question

我目前正在尝试构建一个闪亮的应用程序。用户提供数据框（我从汽车包中选择了mtcars）。 然后用户应该能够在闪亮的应用程序中选择一个因变量。取决于拾取的变量，应弹出数据框的所有其他变量，然后用户将选择自变量。 我的文件在ui.R和server.R文件中组织如下：

ui.R

library(shiny)

shinyUI(fluidPage(
    fluidRow(
        selectInput("dep", label = "Select dep variable",
                 choices = colnames(mtcars)),
        uiOutput("indepVars")
    )
)

server.R

library(shiny)

shinyServer(function(input, output) {
    output$indepVars <- renderUI({
        depVar<-which(colnames(mtcars)==as.character(input$dep))
        checkboxGroupInput("variables1", label="Include variables:", 
                         choices = colnames(mtcars)[-depVar], 
                         selected = colnames(mtcars)[-depVar])
    })
}

我的问题是，uiOutput（）没有显示，我真的不知道为什么。我想，我对renderUI（）的理解有点不对，我必须设置一些初始值吗？