如果输出：flashdashboard :: flex_dashboard，Shinyjs禁用textInput不工作

Question

我正在构建Flexdashboard UI，虽然R降价。我看到如果我删除标题栏中的输出：flexdashboard :: flex_dashboard，则禁用textInput。

     ---
    title: "without ui and server"
    runtime: shiny
    ---

     ```{r setup, include=FALSE}
      library(flexdashboard)
      library(shiny)
      library(shinyjs)
     ```

     Inputs {.sidebar}
     -----------------------------------------------------------------------

     ```{r, echo=FALSE}

      useShinyjs(rmd = TRUE)
      disabled(textInput("id", "Id", "0"))
      textInput("X1", "X1", "")

      #action buttons
      actionButton("submit", "Submit Changes")

      ```

如果我包含第output: flexdashboard::flex_dashboard行，则无效。文本框未被禁用。

                 ---
                 title: "without ui and server"
                 output: 
                 flexdashboard::flex_dashboard:
                 runtime: shiny
                 ---

                 ```{r setup, include=FALSE}
                    library(flexdashboard)
                    library(shiny)
                    library(shinyjs)
                  ```

                  Inputs {.sidebar}
                  -----------------------------------------------------------------------

                  ```{r, echo=FALSE}

                   useShinyjs(rmd = TRUE)
                   disabled(textInput("id", "Id", "0"))
                   textInput("X1", "X1", "")

                   #action buttons
                   actionButton("submit", "Submit Changes")

                  ```

很想知道是否有其他人遇到过此问题以及有关解决此问题的任何建议。