Question

我想要包含一个小小的＆＃34;帮助＆＃34; actionLink（在＆＃34;渲染＆＃34; actionButton旁边）充当弹出框（参见here）。这是我的代码：

server.R：

shinyUI(pageWithSidebar(
  sidebarPanel( 
    actionButton("renderButton", "Render"),
    actionLink("link", "Help") ),
  mainPanel()
))

ui.R：

shinyServer(function(input, output, session) {
   # ... dealing with renderButton ...
   output$link <- renderUI({
   addPopover(session=session, id=output$link, title="", 
              content="Testing.", placement = "bottom",
              trigger = "click", options = NULL)
   })
})

现在，actionLink显示在侧边栏上，但点击它无效。有小费吗？我认为它可能与addPopover中的id有关，但我还没有找到很多提供框架的例子。我发现this，但我想处理server.R中的popover，而不是ui.R.可以这样做，还是我应该在ui.R中制作popover？

Answer 1

来自?Tooltips_and_Popovers：

应用的用户界面中必须至少有一个有光泽的BS组件命令加载必要的依赖项。因为这，如果addTooltip和addPopover是唯一的有光泽的BS，它们将无法工作您应用中的组件。

要让弹出窗口工作，您可以将actionButton更改为bsButton，并修改server.R以仅包含对addPopover的调用。 id的{{1}}参数也需要更改，以引用您希望弹出窗口显示的ui对象的ID，在您的情况addPopover中，{的id为{ {1}}。

以下是自包含代码块中的修改示例代码：

"link"

闪亮：将addPopover添加到actionLink

1 个答案: