使用Shiny，RCharts＆datamaps：圖例使用navbarPage下降

請參閱下面的代碼。因爲它是有效的。如果您對註釋掉的線條進行了取消註釋，則會降低圖例。這可能是一個閃亮的bug。我的應用需要navbarPage。任何人有任何建議？我用[R版本3.1.1 &最新版本的軟件包（截至2014年6月10日）使用Shiny，RCharts＆datamaps：圖例使用navbarPage下降

library(WDI) 
library(dplyr) 
library(countrycode) 
library(RColorBrewer) 
library(plyr) 
library(rMaps) 
library(rCharts) 
library(shiny) 
# 
runApp(list(ui = 
    # navbarPage("Maps", id = "maps", 
    #   footer = "footer", 
    tabPanel("Data Map", id="overview",h3("Data Maps!"), 
       showOutput("chart1", "datamaps") 
       #) 
), 
server = function(input, output, session) { 
output$chart1 <- renderChart2({ 
     df=WDI(country = "all", indicator = "SH.DYN.MORT", 
       start = 2000, end = 2000, extra = FALSE, cache = NULL) 
     data <- df %.% 
      na.omit() %.% 

      mutate(iso3c=countrycode(iso2c, "iso2c", "iso3c")) %.% 
      group_by(iso3c) 

     i1 <- ichoropleth(SH.DYN.MORT~iso3c, data, map="world",labels=FALSE,pal="Reds") 
     i1 
    }) 
}))

來源

2014-10-06 Enzo

@rmccloskey重新編輯的代碼（消除了that手}腳！）。感謝那。增加了R版本。 – Enzo 2014-10-06 22:29:20

我也需要'library（rMaps）'。 – 2014-10-06 22:36:06

的錯誤似乎是rCharts/rMaps，沒有光澤;地圖和它的rCharts容器都被設置爲400像素高，但圖例也包含在容器中。在所有情況下，圖例仍然存在，但是當使用navbarPage時，您必須滾動才能看到它。 navbarPage似乎使問題變得更糟，因爲它告訴tabPanel不要簡單地渲染對它來說太大的內容，而是要進行滾動。

即使沒有navbarPage，您也可以通過簡單地將字符串"hello"作爲tabPanel的另一個參數，在showOutput()調用之後立即確認;你會看到地圖和圖例之間呈現「hello」，當它出現在圖例下方時。

來源

2014-10-06 22:43:33

非常感謝您的幫助！至少現在我知道要吠叫什麼樹了:) – Enzo 2014-10-06 22:51:52

使用Shiny，RCharts＆datamaps：圖例使用navbarPage下降

回答

相關問題