Question

见下面的代码。因为它是有效的。如果您取消注释已注释掉的线条，则会闪烁掉图例。它可能是一个闪亮的bug。我的应用需要navbarPage。有人有什么建议吗？我使用R版3.1.1＆amp;最新版本的软件包（截至2014年6月10日）

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中，而不是出现在Shiny中;地图及其rCharts容器都设置为400像素高，但图例也包含在容器中。在所有情况下，图例仍然存在，但是当使用navbarPage时，您必须滚动才能看到它。 navbarPage似乎使问题变得更糟，因为它告诉tabPanel不要简单地呈现对它来说太大的内容，而是要进行滚动。

即使没有navbarPage也可以确认这是一个问题，只需在"hello"调用之后立即将字符串showOutput()作为另一个参数添加到tabPanel;当地图和图例出现在图例下方时，你会看到“hello”在地图和图例之间呈现。

使用Shiny，RCharts＆amp; datamaps：使用navbarPage删除了图例

1 个答案: