为什么 bslib 弹出窗口在 Rshiny 中不起作用

Question

点击“点击我！”按钮，我应该看到一个带有 selectInput 小部件的弹出窗口。但它不起作用。谁能告诉我为什么这不起作用？任何帮助，将不胜感激！谢谢

ui <- basicPage(
  mainPanel(
      popover(
        shiny::actionButton("btn_1","Click Me!"),
        selectInput('Species', 'Select Species', as.character(unique(iris$Species))),
        title = "Plot settings"
        ),
      plotOutput("plt")
      )
  )

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

Answer 1

我不知道为什么弹出窗口没有显示，但是当您使用

bslib

包时，请尝试使用同一包中的所有内容。

shiny

和

bslib

不能齐头并进。

如果将

basicPage

中的

shiny

替换为

page_*

中的任何

bslib

函数，它应该可以工作。

library(shiny)
library(bslib)

ui <- page_fluid(
  mainPanel(
    popover(
      shiny::actionButton("btn_1","Click Me!"),
      selectInput('Species', 'Select Species', as.character(unique(iris$Species))),
      title = "Plot settings"
    ),
    plotOutput("plt")
  )
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)