Wie man ein tmap_leaflet in Rshiny ausgibt

Question

Also ich bin neu zu Rshiny und R im Allgemeinen. Ich war das tmap Paket zu testen und wenn ich das in die Konsole eingegeben

> working_map <- readOGR(dsn=".",layer=file_name, GDAL1_integer64_policy=TRUE) 
> japan <- tm_shape(working_map) + tm_fill(col="NumIB", title="# Inbound to Cities", style="jenks") 
> tmap_leaflet(japan) 

ich ein interaktives Faltblatt-Widget, das ich in der und aus wie ein Faltblatt sehen kann und zoomen.

Aber ich kann das nicht in meine Rshiny-Anwendung integrieren.

# ui.R 


shinyUI(fluidPage( 

    mainPanel( 
    leafletOutput("working_map", height=900) 
) 

)) 

#server.R 
output$working_map <- renderLeaflet({ 
    working_map <- readOGR(dsn=".",layer=filename, GDAL1_integer64_policy=TRUE) 
    japan <- tm_shape(working_map) + tm_fill(col="NumIB", title="# Inbound to Cities", style="jenks") 
    tmap_leaflet(japan) 
}) 

Ich habe verschiedene Kombinationen ausprobiert. Wie plotOutput, oder das tmap_leaflet in die ui.R. Nichts davon scheint zu funktionieren. Wenn ich nicht falsch liege, erstellt tmap_leaflet ein Leaflet Widget. Sollte ich das dann auf der u-Seite schaffen? Oder sollte ich eine globale verwenden?

Answer 1

Ich habe es geschafft, es zu lösen.

#ui.R 

shinyUI(fluidPage(
    titlePanel("Japan Map"), 

    mainPanel( 
    leafletOutput("working_map", height=900) 
) 

)) 

#server.R 
shinyServer(function(input, output) { 


    output$working_map <- renderLeaflet({ 
    working_map <- readOGR(dsn=".",layer="japan_ver81", GDAL1_integer64_policy=TRUE) 
    working_map <- tm_shape(working_map) + tm_fill(col="NumIB", title="# Inbound to Cities", style="jenks") 
    tmap_leaflet(working_map) 

    }) 


    }) 

Es war ein ziemlich dummer Fehler mit den Variablen. Die Pakete, die ich verwende, sind eine Bibliothek (tmap) und eine Bibliothek (rgdal).