我正在使用最新版本的闪亮仪表板和宣传单来创建一个闪亮的应用程序(请参阅下面的我的最低示例)。这个Shiny应用程序在我的计算机上运行良好。但是,传单地图正按照预期推进到我的手机右侧(参见此图)。
所以,我的问题是可以创建一个浮动侧边栏,它将浮动在传单地图上。
PS:这是一个示例浮动侧边栏(位于右上角。http://run.plnkr.co/plunks/sA6H7U/)。
library(shiny)
library(shinydashboard)
library(leaflet)
header <- dashboardHeader(title = 'Leaflet test')
sidebar <- dashboardSidebar()
body <- dashboardBody(
tags$head(
tags$style(HTML("
div.outer {
height: calc(100vh - 80px);
padding: 0;
margin: 0;
min-height: 500px
}
")))
, tags$div(
class = 'outer',
leafletOutput('map', width = '100%', height = '100%'))
)
ui <- dashboardPage(
header, sidebar, body
, title = 'Leaftlet test'
)
server <- function(input, output, session) {
output$map <- renderLeaflet({
leaflet() %>%
addTiles()
})
}
shinyApp(ui, server)