navebarMenu始终突出显示

Question

我有一个navbarPage,我有三个navbarMenu.但是第一个,navbarMenu即"帮助"总是默认突出显示,并且navbarMenu tabpanel"手动"也始终突出显示.如何避免这种情况.示例代码如下所示

ui.r

shinyUI(fluidPage(theme = "bootstrap.css",
                  (navbarPage("B Version",
                              position = c("fixed-top"),
                              fluid=TRUE,
                              navbarMenu("Help",
                                         tabPanel(
                                           a("Manual",
                                             target="_blank", href="Manual.pdf")
                                         ),
                                         tabPanel(
                                           a("Supporte",
                                             target="_blank", href="gpl.pdf")
                                         ),
                                         tabPanel(
                                           a("Tutorials",
                                             downloadLink("AbE", "Expression", class=" fa fa-cloud-download"),
                                             downloadLink("DiEx", "Expression", class=" fa fa-cloud-download")
                                           )
                                         )
                              ),
                              navbarMenu("Sample Data",
                                         tabPanel(
                                           downloadLink("AData", " Aff", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           downloadLink("CData", " Code", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           downloadLink("IData", " Il", class=" fa fa-cloud-download")
                                         )
                              ),
                              navbarMenu("Stand-Alone Version",
                                         tabPanel(
                                           downloadLink("CodeandData", " app", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           a("Stand-alone Manual",
                                             target = "_blank", href= "Stand-alone.pdf")
                                         )
                              )

                  )
                  )
)
)

server.r

shinyServer(function(input, output,session) {
})

-------------------------------------------------- -----------------

*编辑

这部分展示了它对@amrrs提供的答案的反应.它会在按下光标时显示数据,然后再次消失.

ui.r

shinyUI(fluidPage(theme = "bootstrap.css",
                  tags$script("setInterval(function(){
                              $('.active').removeClass('active');//remove class active
                              },1000);"),
                  (navbarPage("B Version",
                              position = c("fixed-top"),
                              fluid=TRUE,selected = "none",
                              navbarMenu("Help", 
                                         tabPanel(
                                           a("Manual",
                                             target="_blank", href="Manual.pdf")
                                         ),
                                         tabPanel(
                                           a("Supporte",
                                             target="_blank", href="gpl.pdf")
                                         ),
                                         tabPanel(
                                           a("Tutorials",
                                             downloadLink("AbE", "Expression", class=" fa fa-cloud-download"),
                                             downloadLink("DiEx", "Expression", class=" fa fa-cloud-download")
                                           )
                                         )
                              ),
                              navbarMenu("Sample Data",
                                         tabPanel(
                                           downloadLink("AData", " Aff", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           downloadLink("CData", " Code", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           downloadLink("IData", " Il", class=" fa fa-cloud-download")
                                         )
                              ),
                              navbarMenu("Stand-Alone Version",
                                         tabPanel(
                                           downloadLink("CodeandData", " app", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           a("Stand-alone Manual",
                                             target = "_blank", href= "Stand-alone.pdf")
                                         )
                              )


)
),

br(),
br(),



sidebarLayout(
  sidebarPanel(
    h5("Upload Data Files",style="bold"),
    fileInput("files", 
              "Choose CSV/txt processed files or raw files",
              multiple = "TRUE",
              accept=c('text/csv',
                       'text/comma-separated-values,
                       text/plain', '.csv','.cel','.TXT','.txt'))

                      ),

                    mainPanel(
                      tabsetPanel(id = "MaTabs",
                        tabPanel("Source-data", dataTableOutput("sourced"))
                      )

                    )
                    )))

server.r

shinyServer(function(input, output,session) {

  output$sourced <- renderDataTable(mtcars)
})

Answer 1

基于这个答案，添加一小段 js 会有所帮助。

更新了仅针对导航隐藏活动的代码：

 shinyUI(fluidPage(theme = "bootstrap.css",
                  tags$script("setInterval(function(){
                              $('.nav').removeClass('active');//remove class active
                              },1000);"),
                  (navbarPage("B Version",
                              position = c("fixed-top"),
                              fluid=TRUE,selected = "none",
                              navbarMenu("Help", 
                                         tabPanel(
                                           a("Manual",
                                             target="_blank", href="Manual.pdf")
                                         ),
                                         tabPanel(
                                           a("Supporte",
                                             target="_blank", href="gpl.pdf")
                                         ),
                                         tabPanel(
                                           a("Tutorials",
                                             downloadLink("AbE", "Expression", class=" fa fa-cloud-download"),
                                             downloadLink("DiEx", "Expression", class=" fa fa-cloud-download")
                                           )
                                         )
                              ),
                              navbarMenu("Sample Data",
                                         tabPanel(
                                           downloadLink("AData", " Aff", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           downloadLink("CData", " Code", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           downloadLink("IData", " Il", class=" fa fa-cloud-download")
                                         )
                              ),
                              navbarMenu("Stand-Alone Version",
                                         tabPanel(
                                           downloadLink("CodeandData", " app", class=" fa fa-cloud-download")
                                         ),
                                         tabPanel(
                                           a("Stand-alone Manual",
                                             target = "_blank", href= "Stand-alone.pdf")
                                         )
                              )


)
),

br(),
br(),



sidebarLayout(
  sidebarPanel(
    h5("Upload Data Files",style="bold"),
    fileInput("files", 
              "Choose CSV/txt processed files or raw files",
              multiple = "TRUE",
              accept=c('text/csv',
                       'text/comma-separated-values,
                       text/plain', '.csv','.cel','.TXT','.txt'))

              ),

  mainPanel(
    tabsetPanel(id = "MaTabs",
                tabPanel("Source-data", dataTableOutput("sourced"))
    )

  )
)))