所以想想Google地图。
地图是整个背景,窗口小部件位于左上角(位于地图的顶部)。
library(shiny)
ui <- fluidPage (
## some layout here
##plotOutput('out_map')
)
server <- function(input, output) {
output$out_map <- shiny::renderPlot(some_dataset)
}
shinyApp(ui = ui, server = server)
答案 0 :(得分:0)
您可以在地图上添加一些CSS,以使其占据整个页面。这是使用传单的示例。然后,如果您想在地图顶部显示一些元素,则可以添加一些absolutePanel()
。
library(shiny)
library(leaflet)
ui <- fluidPage (
# set the height of a #map object with CSS
tags$style(type = "text/css", "#map {height: calc(100vh - 10px) !important;}"),
leafletOutput("map"),
#add some panels above the map
absolutePanel(id = "elements", class = "panel panel-default", top = 0, left = 0, width = 300, height = 300,
tags$p("some other elements"))
)
server <- function(input, output) {
# generate the map with leaflet
output$map <- renderLeaflet({
leaflet() %>% addTiles()
})
}
shinyApp(ui = ui, server = server)