r语言 - 如何在 Rshiny 中输出tmap_leaflet

Question

所以我对Rshiny和R很陌生。我正在测试 tmap 包，当我在控制台中键入它时

> 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创建一个传单小部件。那么我应该在 UI 端创建它吗？或者我应该使用全局。R？

Answer 1

我设法解决了它。

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

  })

变量是一个相当愚蠢的错误。我使用的软件包是library(tmap(和library(rgdal(。