使用闪亮的、RCharts & datamaps:使用navbarPage删除图例

Question

请参阅下面的代码。因为它是有效的。如果你不评论评论的话，评论的台词就会让传说黯然失色。很可能是个闪亮的虫子。我的应用程序需要navbarPage。有人有什么建议吗？我使用RVersion3.1.1&包的最新版本(截至2014年10月6日)

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

Answer 1

错误似乎在rCharts/rMaps中，而不是在闪亮中；映射及其rCharts容器都被设置为400像素高，但图例也包含在容器中。在所有情况下，图例仍然存在，但是当使用navbarPage时，您必须滚动以查看它。navbarPage似乎使问题更加严重，因为它告诉tabPanel不要简单地呈现对它来说太大的内容，而要做滚动操作。

即使没有navbarPage，也可以确认这是一个问题，只需将字符串"hello"添加为tabPanel的另一个参数，就在showOutput()调用之后；您将看到在映射和图例之间呈现"hello“，而它应该出现在图例下面。