r - 出力の場合、Shinyjs は textInput を無効にします: flexdashboard::flex_dashboard

Question

Rマークダウンを使用してFlexdashboard UIを構築しています。タイトル ブロックの出力 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")

                  ```

他の誰かがこの問題に遭遇したかどうか、およびこの問題を修正するための提案があるかどうかを知りたい.