R标记中的传单()之后的d3heatmap()导致addLegend()消失

Question

我正在使用HTML在RStudio中开发一个RStudio文档(RStudio文档)。我有一个由传单包中的函数创建的映射，包括由addLegend()函数创建的图例。然后是由d3heatmap包的d3heatmap函数创建的热图。当我使用运行所有块运行代码时，显示在Viewer窗格中的输出看起来很好。当我使用针织HTML运行代码时，显示在弹出窗口中的输出将丢失图例。

为了将图例显示在地图上，我需要做些什么，即使之后显示热图时也是如此？

下面是一个你可以自己尝试的例子。它基于http://rstudio.github.io/leaflet/legends.html，并要求您从http://data.okfn.org/data/datasets/geo-boundaries-world-110m下载countries.geojson数据。

在这个例子中使用，如果我包括heatmap，使用{r, eval=TRUE}，在传单地图上没有图例。如果我排除热图，使用{r, eval=FALSE}，在传单地图上有一个传说。

我使用R版本3.2.3 (2015-12-10)，平台:x86_64-W64-mingw32 32/ x64 (64位)，运行于: Windows 7 x64 (build 7601) Service Pack 1，RStudio版本0.99.491，软件包d3heatmap_0.6.1，rgdal_1.1-3，sp_1.2-1和leaflet_1.0.0。

---
title: "Testing"
output:
  html_document: default
---

Some text.

```{r, message=FALSE}

图书馆(小册子)

图书馆(Rgdal)

国家<- readOGR("json/countries.geojson"，"OGRGeoJSON"，

verbose=FALSE)

地图<-传单(国家) %>% addTiles()

pal <- colorNumeric(

调色板= "YlGnBu“

域= countries$gdp_md_est)

地图%>%

addPolygons(中风=假，smoothFactor = 0.2，fillOpacity = 1，

color = ~pal(gdp_md_est)) %>%

addLegend(“右下角”，pal = pal，values = ~gdp_md_est，

title = "Est. GDP (2010)",

labFormat = labelFormat(prefix = "$"),

opacity = 1)

Some text.

```{r, eval=TRUE}

图书馆(D3heatmap)

d3heatmap(mtcars)

Answer 1

当我取消选中CSS选项时，传单和d3heatmap共享一个名为.info的css类，然后您可以再次看到图例。

必须使用className参数手动重新分配CSS类，如下所示：addLegend("bottomright", className = "legendbox", pal = pal, values = ~gdp_md_est,

您必须为新类追加额外的CSS设置。

​

​