Leaflet控件覆盖navbarMenu闪亮

时间:2018-03-05 19:48:44

标签: r shiny leaflet

shiny navbarPage个应用中,leaflet + - 控件覆盖了navbarMenu内容,使其难以阅读(用户可能需要调整浏览器窗口的大小才能能够阅读菜单)。这是一个错误吗?有没有办法将+ - 控制移动到背景中?

enter image description here

library(leaflet)
library(shiny)

ui <- navbarPage(NULL,
  navbarMenu("Menu",
    tabPanel("Menu Item 1", leafletOutput("map")),
    tabPanel("Menu Item 2"),
    tabPanel("Menu Item 3")
  )
)

server <- function(input, output, session) {
  output$map <- renderLeaflet({
    leaflet() %>% addTiles()
  })
}

shinyApp(ui, server)

1 个答案:

答案 0 :(得分:1)

通过更改+控件的z-index值,可以在下拉菜单后面移动+控件。

library(leaflet)
library(shiny)

ui <- navbarPage(NULL,
  navbarMenu("Menu",
    tabPanel("Menu Item 1", leafletOutput("map")),
    tabPanel("Menu Item 2"),
    tabPanel("Menu Item 3")
  ),
  tags$head(tags$style(".leaflet-top {z-index:999!important;}"))
)

server <- function(input, output, session) {
  output$map <- renderLeaflet({
    leaflet() %>% addTiles()
  })
}

shinyApp(ui, server)