Shiny Flexdashboard不'；在输出后不渲染输入

所以我一直在与这行代码作斗争。我的uiOutput函数似乎杀死了它下面的一切。
当我运行文档时，在我的ui输出（“SELECT\u STAGE\u 1”）
但是，当我删除这一行时，其余的代码将被渲染，当我将其放回原处时，我的uiOutput（“SELECT\u STAGE\u 1”）将出现，但之后不会显示任何其他内容。
我在设置中的“renderUI”行上是否做错了什么

    ---
    title: "ALICE"
    output: 
      flexdashboard::flex_dashboard:
        orientation: columns
        vertical_layout: fill
    runtime: shiny 

    ---
    ```{r setup, include=FALSE}
    library(flexdashboard)
    library(tidyverse)
    library(leaflet)

    STAGES <- read_csv2("20191122_STAGES.csv")
    STATIONS <- read_csv2("20191122_STATIONS.csv")
    TRAJETS <- read_csv2("20191122_TRAJETS.csv")

    output$SELECT_STAGE_1 <- renderUI({
      liste_stage_1 <- STAGES$ETABLISSEMENT[STAGES$DEPT == input$DEPT_1]
      selectInput("SELECT_STAGE_1",
                  label = NULL,
                  choices = liste_stage_1,
                  selected = NULL)
    })



    Column {data-width=1000}
    Hello
    selectInput("DEPT_1", 
                label = NULL,
                choices = sort(unique(STAGES$DEPT)),
                selected = "AUCUN")

    uiOutput("SELECT_STAGE_1")

    sliderInput("WANTED_TIME", "Wanted time", 5, 90, 10)

    checkboxInput("UNAUTRE", label = "I need a second entry", value = FALSE)

    conditionalPanel(
      condition = "input.UNAUTRE == true",
      selectInput("DEPT_2", 
                  label = NULL,
                  choices = sort(unique(STAGES$DEPT)),
                  selected = "AUCUN"))

---
标题：“爱丽丝”
输出：
flexdashboard:：flex_仪表板：
方向：列
垂直布局：填充
运行时间：闪亮
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（tidyverse）
图书馆（单张）
我在这里搜索是为了问同样的问题。不仅仅是使用renderUI，任何渲染函数似乎都可以防止其他渲染函数出现在由#####分隔的同一部分中。我在这里搜索是为了问同样的问题。不仅仅是使用renderUI，任何渲染函数似乎都会阻止其他渲染函数出现在由分隔的同一部分中###