Я обнаружил, что bsModal работает, как и ожидалось, с fluidPage , но не без него. Просто нажмите кнопку «Просмотреть таблицу», чтобы увидеть разницу.
Версия с liquidPage :
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 и liquidPage ?