闪亮的 addpopover 函数不适用于 uioutput

Question

我在 R 中创建了以下闪亮的应用程序

首先我们导入必要的库

 library(shiny)
 library(shinyBS)

下一步是创建一个 UI，如下所示

ui =  fluidPage( sidebarLayout( sidebarPanel(sliderInput("bins", "Number of bins:", min = 1, max = 
 50,value = 30), selectInput(inputId = "Select1", label = "Select1", choices = c('A', 'B', 'C'), 
 selected = "A"),  selectInput(inputId = "Select2", label = "Select2", choices = c('A1', 'B1', 'C1'), 
 selected = "A1"), bsTooltip("bins", "Read", "right", options = list(container = "body")) ),
 mainPanel(uiOutput("namelist") ) ))

我们现在如下创建服务器

 server =function(input, output, session) {

   content<-reactive({
    input$Select2    
   })
    output$namelist<-renderUI({

    textInput(inputId = "text1", label =input$Select1)

   }) 

 addPopover(session, "namelist", "Data", content =content() , trigger = 'click')  }

 shinyApp(ui, server)

正在运行的应用程序将创建一个滑块和两个选择框，以及一个对用户输入做出动态反应的输出。当将鼠标悬停在滑块上时，工具提示会显示带有读取的气泡。我无法使 addpopover 功能正常工作。它应该根据 select 2 的输入工作，弹出消息框中呈现的文本应该改变。应用程序崩溃。当我将 addpopover 命令放置在反应式环境中时，我就是 renderUI 函数的输出——即文本框消失了。我请求有人在这里帮助我。

Answer 1

您可以将addPopover 包裹在observe 或observeEvent 中。我更喜欢observeEvent，推荐here。

addPopover 将在每次 content() 更改时更新，这是我们想要的，因为此弹出框应该显示 content()。但是，此弹出框的行为有些奇怪（点击有时无效），但我想这与您的应用无关。

library(shiny)
library(shinyBS)

ui =  fluidPage(sidebarLayout(
  sidebarPanel(
    sliderInput(
      "bins",
      "Number of bins:",
      min = 1,
      max =
        50,
      value = 30
    ),
    selectInput(
      inputId = "Select1",
      label = "Select1",
      choices = c('A', 'B', 'C'),
      selected = "A"
    ),
    selectInput(
      inputId = "Select2",
      label = "Select2",
      choices = c('A1', 'B1', 'C1'),
      selected = "A1"
    ),
    bsTooltip("bins", "Read", "right", options = list(container = "body"))
  ),
  mainPanel(uiOutput("namelist"))
))

server =function(input, output, session) {

  content<-reactive({
    input$Select2    
  })
  output$namelist<-renderUI({

    textInput(inputId = "text1", label = input$Select1)

  }) 

  observeEvent(content(), {
    addPopover(session, "namelist", "Data", content = content() , trigger = 'click')
  })

}

shinyApp(ui, server)