[英]Problems scaling map. Shiny + leaflet
我無法在閃亮的應用程序中顯示“全屏”地圖,因為當我使用“ 100%”參數時,地圖消失了...
ui <- fluidPage(
leafletOutput("mymap", height = "100%", width = "100%"),
但是當我這樣做時
ui <- fluidPage(
leafletOutput("mymap"),
沒問題,但是地圖有一半,空白處有一半。 我需要全屏顯示
我試過了
leafletOutput("mymap", height = 800, width = 1300)
但這不是我所需要的,因為它沒有縮放到窗口,這就是為什么我使用“ 100%”參數。
好吧,我想100%的高度是指“適合屏幕/窗口”嗎?
jscode <- '
$(document).on("shiny:connected", function(e) {
var jsHeight = window.innerHeight;
Shiny.onInputChange("GetScreenHeight",jsHeight);
});
'
library(shiny)
library(leaflet)
r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()
ui <- fluidPage(
p(),
tags$script(jscode),
uiOutput("leafl"),
actionButton("recalc", "New points")
)
server <- function(input, output, session) {
points <- eventReactive(input$recalc, {
cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
}, ignoreNULL = FALSE)
output$mymap <- renderLeaflet({
leaflet() %>%
addProviderTiles("Stamen.TonerLite",
options = providerTileOptions(noWrap = TRUE)
) %>%
addMarkers(data = points())
})
output$leafl <- renderUI({
if(!is.null(input$GetScreenHeight)){
width <- session$clientData$output_image1_width
print(session$clientData)
height <- session$clientData$output_image1_height
leafletOutput("mymap", width = "100%", height = input$GetScreenHeight)
}
})
}
shinyApp(ui, server)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.