Question

我正在开发一个应用程序，我使用shinyjs包隐藏并显示navbarPage元素的标签。它工作正常，直到我决定在我的应用程序中使用lubridate用于其他目的。只需使用library调用，当我尝试使用显示/隐藏功能时应用会冻结：

警告：显示错误：未使用的参数（selector =＆＃34; #navbar li 一个[数据值= MYDATA]＆＃34）

我的代码（尝试使用或不使用lubridate加载）

library(shiny); library(shinyjs); library(lubridate)
ui <- fluidPage(useShinyjs(), navbarPage(id="navbar", title="Analysis",
                                       tabPanel(title="Home", p("here is main page"), checkboxInput("show_other_tab", "show other tab?", value=FALSE)),
                                       tabPanel(title="My Data", value="mydata", p("some other text"))))
server = function(input, output, session){
     hide(selector = "#navbar li a[data-value=mydata]")
     observe({
          if (input$show_other_tab) {
               show(selector = "#navbar li a[data-value=mydata]")
          } else {
               hide(selector = "#navbar li a[data-value=mydata]")}})}
shinyApp(ui, server)

这是我的session.info（）：R 3.4.2 [1] lubridate_1.7.1 shinyjs_0.9.1 shiny_1.0.5

导致此问题的原因以及如何避免此错误？感谢

闪亮：使用show方法时lubridate和shinyjs之间的冲突？

0 个答案: