r - 如果不使用 bsButton(),shinyBS Popover 将无法正常工作
问题描述
我正在与shinyBS
-popovers 内的奇怪行为作斗争insertUI()
。似乎只有在bsButton()
某处包含 a 时才会添加弹出框。
您可以使用下面的示例。只要您取消注释 any bsButton(...)
,弹出框就会起作用。
library(shinyBS)
library(shiny)
library(shinyWidgets)
# UI ---------------------------------------------------------------------------
ui <- basicPage(
actionButton("show", "Create Input"),
# uncomment me!
# shinyBS::bsButton("id_button1", "A Button"),
fluidRow(
tags$div(id = 'placeholder',
style = "min-height: 400px;")
)
)
# Server -----------------------------------------------------------------------
server <- function(input, output, session) {
# insert checkbox when clicked
observeEvent(input$show, {
insertUI(selector = '#placeholder',
ui = tags$div(id = "id_div",
# uncomment me!
# shinyBS::bsButton("id_button2", "A Button"),
shinyWidgets::prettyCheckbox(
inputId = "id_checkbox",
label = "Click Me!"
)),
immediate = TRUE)
addPopover(session, "id_div", "Hello", "Stranger")
})
}
shinyApp(ui, server)
解决方案
推荐阅读
- git - 如何从我的 Macbook 上完全卸载 git?
- android - Oreo:如何从后台捕捉位置更新?
- python - Python - 如果“a”或“b”
- oracle - Oracle 导出默认日期
- c# - INSERT 语句与我尝试在循环中保存的每个 Second Record 的 FOREIGN KEY 约束冲突
- devops - SaltStack 公式中的手动批准
- c++ - 如何将结构内的数组编组为本机 dll
- log4j - 不同地方的不同日志级别
- python-3.x - 如何在 Windows 7 中自动安装 python 库(在我们的脚本文件中导入)
- dialogflow-es - 保存意图时出现许多弹出错误