如何在Rshiny中输出tmap_leaflet

所以我是Rshiny和R的新手。我测试了TMAP包，当我键入到控制台如何在Rshiny中输出tmap_leaflet

> 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)

这我得到一个交互式单张小工具，让我看到和放大和缩小像传单。

但我不能将它集成到我的Rshiny应用程序中。

# 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) 
})

我试过各种组合。如plotOutput，或将tmap_leaflet放入ui.R.它似乎没有工作。如果我没有错，tmap_leaflet创建一个Leaflet Widget。我应该在UI方面创建这个吗？或者我应该使用global.R？

来源

2017-03-18 qpisqp

我设法解决它。

#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) 

    }) 


    })

这是一个相当愚蠢的错误与变量。我使用的软件包是库（tmap）和库（rgdal）。

来源

2017-03-18 05:58:55 qpisqp

如何在Rshiny中输出tmap_leaflet

回答

相关问题