R - Glänzendes - Karte nicht angezeigt, wenn ich tablePanel verwenden

Question

Mein ui.R ist:

library(shiny) 
library(leaflet) 

navbarPage("POC IoT", 

    tabPanel("Carte Géolocalisation", 

    #tags$style(type = "text/css", "html, body {width:100%;height:100%}"), 
    leafletOutput("map", width = "100%", height = "100%")  

), 

    tabPanel("Carte Trajet"), 

    tabPanel("Données") 

) 

Mein server.R ist:

library(shiny) 
library(leaflet) 
source("load_data.R") 

data <- load_data_moment() 

function(input, output, session) { 

    output$map <- renderLeaflet({ 

    leaflet(data) %>% 
     addTiles() %>% 
     addMarkers(~long, ~lat,clusterOptions = markerClusterOptions(),popup = ~paste(remorque)) 

    }) 

} 

Wenn ich diesen Code verwenden, ohne TabPanel, es funktioniert, ich habe eine Karte. Wenn ich das TabPanel hinzufüge, habe ich die Navbar aber Karte wird nicht angezeigt.

Answer 1

Ihr Problem ist der height = "100%" Parameter in der leafletOutput. Weil das im Moment 100% von nichts ist, was nichts ist.

Entweder entfernen Sie diese oder ändern Sie sie von % zu px oder fügen Sie style = "height:500px;" als Argument für das tabPanel hinzu, das die Map wie folgt enthält.

navbarPage("POC IoT", 
      tabPanel("tab1", 

        #tags$style(type = "text/css", "html, body {width:100%;height:100%}"), 
        style = "height:92vh;", 
        leafletOutput("map", width = "100%", height = "100%")  

      ), 
      tabPanel("Carte Trajet", 
        uiOutput("some1")), 
      tabPanel("Données", 
        uiOutput("some12"))  

) 

92vh ist eine CSS-Einheit mehr oder weniger 92% des Bildschirms bedeutet, das ist das, was nach dem Wegnehmen Raum für den Kopf verlassen wird. Hoffe, das hilft!