已解決430363個問題，去搜搜看，總會有你想問的

在 Shiny 中選擇一個選項后，如何關閉漢堡菜單的下拉菜單

首頁猿問在 Shiny...

在 Shiny 中選擇一個選項后，如何關閉漢堡菜單的下拉菜單

JavaScript

慕婉清6462132 2021-05-31 13:35:45

我在 R Shiny 中有一個可折疊的導航欄菜單。當菜單折疊并單擊漢堡按鈕時，選項出現。當我單擊其中一個選項時，會（正確地）選擇另一個面板，但菜單保持打開狀態。是否有可能（使用 css？）在我選擇其中一個選項后立即關閉“下拉菜單”（即選項列表）？代碼如下所示：library(shiny)ui <- tagList( navbarPage( title = NULL, id = "navBar", collapsible = TRUE, tabPanel(title = "Panel1", uiOutput('panel1')), tabPanel(title = "Panel2", uiOutput('panel2')), tabPanel(title = "Panel3", uiOutput('panel3')) ))server <- function(input, output, session) { output$panel1 <- renderUI({p("This is panel 1")}) output$panel2 <- renderUI({p("This is panel 2")}) output$panel3 <- renderUI({p("This is panel 3")})} shinyApp(ui = ui, server = server)

查看完整描述

1 回答

largeQ

TA貢獻2039條經驗獲得超8個贊

您可以使用input$navBar（您的 id in navbarPage()）在 navbarPage 上收聽并通過 javascript 觸發更改。

observeEvent(input$navBar, {

runjs('

var elem = document.getElementsByClassName("navbar-collapse")[0]

elem.setAttribute("aria-expanded", "false");

elem.setAttribute("class", "navbar-collapse collapse");

})

可重現的例子：

library(shiny)

library(shinyjs)

ui <- tagList(

useShinyjs(),

navbarPage(

title=NULL, id = "navBar", collapsible = TRUE,

tabPanel(title = "Panel1", uiOutput('panel1')),

tabPanel(title = "Panel2", uiOutput('panel2')),

tabPanel(title = "Panel3", uiOutput('panel3'))

)

server <- function(input, output, session) {

output$panel1 <- renderUI({p("This is panel 1")})

output$panel2 <- renderUI({p("This is panel 2")})

output$panel3 <- renderUI({p("This is panel 3")})

observeEvent(input$navBar, {

runjs('

var elem = document.getElementsByClassName("navbar-collapse")[0]

elem.setAttribute("aria-expanded", "false");

elem.setAttribute("class", "navbar-collapse collapse");

})

}

shinyApp(ui = ui, server = server)

反對回復 2021-06-03

1 回答
0 關注
198 瀏覽

關注

添加回答

舉報

0/150

提交

取消

亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

熱搜

最近搜索清空

在 Shiny 中選擇一個選項后，如何關閉漢堡菜單的下拉菜單

在 Shiny 中選擇一個選項后，如何關閉漢堡菜單的下拉菜單

1 回答

添加回答

在 Shiny 中選擇一個選項后，如何關閉漢堡菜單的下拉菜單