R 在系统中使用链接的selectInput函数

Shiny是新手，似乎还没有找到这方面的信息：我正在制作一个包含两个selectInput下拉列表的应用程序，以便第二个以黄色突出显示的应用程序依赖于第一个

这是用于数据探索的，基本上要浏览不同的文件夹内容。以下是我想要的：

  ui <- fluidPage(
  selectInput(inputId = "site", label = "Select Site", choices = dir(basepath)),
  selectInput(inputId = "duct", label = "Select Duct", 
              choices = dir(grep(input$site, dir(basepath, full.names = T), val = T)))
)

显然，上述代码不起作用。我不知道如何在另一个输入函数中使用input$site

---

我找到了一些答案：但它们并不直接适用，因为我没有第一个输入inputId=site的可能选项的详尽列表。

我创建了一个基于mtcars数据集的小示例。在这里，您会发现来自selectInput站点的齿轮将子集的数据，并将返回第二个selectInput（称为风管），它仅显示第一个选择的值：

library(shiny)

ui <- basicPage(
  headerPanel("Test Shiny App"),
  sidebarPanel(
    selectInput(inputId = "site", label = "Select Site", choices = unique(mtcars$gear)),
    uiOutput("dynamicui")),
  mainPanel()
)

server <- function(input, output, session){
  output$dynamicui <- renderUI({
    selectInput(inputId = "duct", label = "Select Duct", choices = rownames(mtcars)[mtcars$gear %in% input$site])
  })
}
runApp(list(ui = ui, server = server))

---

谢谢，它似乎起作用了。我是新来的，我觉得我没有完整的图片用于闪亮的输入/输出/布局选项。我正在关注官方的网络研讨会等，但是否有其他来源可以获得顶级概述？请确保您在他们的网站上完成教程是的，这些就是。