2

我有一个闪亮的仪表板应用程序，带有 3 个选项卡和一个通知菜单。我正在尝试跟踪仪表板上的用户活动，并希望记录他们在仪表板上的每次点击。

tabset 面板的 server.R 中的代码如下：

output$tabs1=renderUI(
    tabsetPanel(type="tab",
                tabPanel(id="OverallTab","Overall Activity"),
                tabPanel(id="Tab1","Tab 1 details"),
                tabPanel(id="Tab2","Tab 2 details"))

我的部分通知代码如下：

output$notiMenu <- renderMenu({
            all_nots <- apply(u_notd, 1, function(row) {
              notificationItem(text = row[["notification"]], icon("users"))
            })
            dropdownMenu(type = "notifications", .list = all_nots)
          })

如果用户单击以下任一选项卡或通知菜单，我正在尝试使用 shinyjs 写入数据框：

  tab1_clicled=""
  tab2_clicked=""
  noti_clicked=""
  shinyjs::onclick("notiMenu",print("Notification clicked"),noti_clicked="YES")
  shinyjs::onclick("Tab1",print("Tab1 clicked"),tab1_clicled="YES")
  shinyjs::onclick("Tab2", print("Tab2 clicked"),tab2_clicled="YES")
  df=as.data.frame(tab1_clicked,tab2_clicked,noti_clicked)

我在这里面临两个问题，

1）点击选项似乎不适用于选项卡面板，使用shinyjs参考（here），我看到只有提到使用点击选项卡面板而不是每个选项卡面板？

2) 我无法在 onclick 函数中修改 tab1_clicked 的值。它抛出一个错误说：观察者中未处理的错误：未使用的参数（tab1_clicled =“YES”）

感谢任何帮助。

4

1 回答 1

3

我只是快速浏览了您的代码，我可以看到两个错误。第一个参数onclick是元素的ID。在您的情况下，您需要实际选项卡按钮的 ID，但不幸的是选项卡的工作方式闪亮，“Tab1”实际上是选项卡面板容器的 ID，但它不是选项卡按钮本身的 ID。看看一个闪亮的应用程序的 HTML，你就会看到。选项卡有点奇怪和烦人，并且很难处理闪亮的选项卡按钮本身。

其次， of 的第二个参数onclick是表达式，但您尝试运行两个表达式print("Tab1 clicked")和tab1_clicled="YES". 您需要将它们包装起来，{}以便将其视为一个表达式，如下所示：

onclick(id, {print("Tab1 clicked"); tab1_clicled="YES"}

但不幸的是，获取标签按钮的 id 很困难，所以我认为onclick这不会有用

于 2015-11-11T22:41:19.703 回答