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