我想用shinyWidgets 下拉显示包含一些信息的电子表格,有时跨越多个页面。
如果单击下一页,下拉列表将再次关闭。
我怎样才能避免这种情况?
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
br(),br(),br(),
p("How to go to the next page, without collapsing?"),
uiOutput("irisdrop", inline = TRUE)
)
server <- function(input, output,
我以前曾在UI中使用以下样式标记来为来自ShinyWidgets的ShinyWidgets样式设置样式:
#switchInput color while on
tags$head(tags$style(HTML('.bootstrap-switch .bootstrap-switch-handle-off.bootstrap-switch-danger,
.bootstrap-switch .bootstrap-switch-handle-on.bootstrap-switch-danger {