RシャイニーリーフレットaddPolygons（色は表示されません）

Question

私はあなたを助けてくれることを願っています。私はリーフレットでchoropleth Mapを作成しました。私は私の（国とランダムスコアのデータフレーム）とシェイプファイルをポリゴンデータとマージしました。これまでのところ動作していますが、R-Shinyで実装すると地図は表示されますが、色はありません。エラーは表示されません。なぜ誰も知っていますか？

マイコード：

ui <- fluidPage(
    leafletOutput("map") 
) 


shinyServer(function(input, output) { 

output$map <- renderLeaflet({ 
    test_map 
    }) 
}) 

global.R 

tmp <- tempdir() 

url <- "http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/50m/cultural/ne_50m_admin_0_countries.zip" 

file <- basename(url) 

download.file(url, file) 

unzip(file, exdir = tmp) 

world <- readOGR(dsn = tmp, layer = "ne_50m_admin_0_countries", encoding = "UTF-8") 

data <- data.frame(Code = c("AR", "AU", "BE", "BR"), 
      Score = c(0.01, -0.05, 0.15, -0.22)) 

world <- merge(world, data, 
       by.x = "iso_a2", 
       by.y = "Code", 
       sort = FALSE) 

pal <- colorNumeric(
    palette = "RdYlGn", 
    domain = world$Score 
) 

test_map <- leaflet(data = world) %>% 
      addTiles() %>% 
      addPolygons(fillColor = ~pal(Score), 
         fillOpacity = 0.9, 
         color = "#BDBDC3", 
         weight = 1) 

Answer 1

私は、これは古い質問ですけど、私はこれが役立つかどうかどうかわからないんだけど、私はちょうど解決したあなたへa similar problemを持っていたと信じています。

私の場合、自分のPC上でRstudio内にポリゴンの色を表示するのに問題はありませんでしたが、地図の他の部分はうまく機能していましたが、特定のWebブラウザやRstudioの古いバージョンは色でポリゴンを塗りつぶすことを拒否しました。

問題は、私のカラーパレットが、アルファチャンネル（透明度を指定する最後の2桁の数字）を持つ16進数のコードで構成されていることでした。 16進コードからアルファチャンネルを削除すると、私の問題が解決しました。あなたのカラーベクトルにアルファが含まれているかどうかを確認する価値があります。その場合は、私自身の問題（上記のリンク）の答えに応じてgsub(".{2}$","",your_colour_vector)のようなものを取り除いてください。

サンプルコードに色が含まれているように見えませんが、フルコードで問題が発生している可能性があります。これは、サンプルコードが動作する理由を説明しますが、完全なコードは動作しません。とにかく調べるべきものかもしれない？申し訳ありませんが私はもっと助けることができません、私は暗闇の中で少しのショットであり、完全な解決策ではないことを知っています。