bsModal 适用于 fluidPage 但不能没有它

Question

我发现 bsModal 使用 fluidPage 可以正常工作，但没有它就不行。只需单击“查看表”按钮即可查看差异。

带有fluidPage的版本：

library(shiny)
library(shinyBS)

shinyApp(
  ui =
    fluidPage(
      sidebarLayout(
        sidebarPanel(
          actionButton("tabBut", "View Table")
        ),

        mainPanel(
          bsModal("modalExample", "Data Table", "tabBut", size = "large",
                  "distTable")
        )
      )
    ),
  server =
    function(input, output, session) {}
)

没有fluidPage的版本，唯一的变化就是fluidPage被tagList代替了：

library(shiny)
library(shinyBS)

shinyApp(
  ui =
    tagList(
      sidebarLayout(
        sidebarPanel(
          actionButton("tabBut", "View Table")
        ),

        mainPanel(
          bsModal("modalExample", "Data Table", "tabBut", size = "large",
                  "distTable")
        )
      )
    ),
  server =
    function(input, output, session) {}
)

谁能帮我解释一下bsModal和fluidPage之间发生了什么？

Answer 1

因为fluidPage 不仅仅是一个简单的tagList。

tagList 只是将其参数并将它们连接起来（期望每个参数都是某种 HTML 标记）。 fluidPage 从字面上生成带有引导依赖项的整个 HTML 文档。

你的第一个例子是比喻“用地下室、平面图和阁楼建造房子”，sidebarLayout 解释楼层的布局，fluidPage 是房子。删除fluidPage，您将尝试建造一个有地下室、平面图和阁楼的房子，但没有地基、墙壁或屋顶。