2

だから私は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 など、または ui.R 内に tmap_leaflet を配置します。どれも機能していないようです。私が間違っていなければ、tmap_leaflet は Leaflet ウィジェットを作成します。その場合、UI側でこれを作成する必要がありますか? または、global.R を使用する必要がありますか?

4

1 に答える 1

2

私はそれを解決することができました。

#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) です。

于 2017-03-18T05:58:55.683 に答える