【发布时间】：2017-10-16 19:48:37
【问题描述】：
我有一个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)
})
【问题讨论】：