Javascript R使用IE 11时，FlexDashboard ggiraph图表未显示在仪表板的第二页

我有一个多页的Flexr仪表板，我正在尝试使用ggiraph创建一些交互式图表。它们在仪表板的第一页上显示良好，但是在第二页上SVG图形不会显示，直到我点击“刷新”，然后第一页上的图表消失。此外，SVG图形中的文本似乎只是间歇性显示。我在Internet Explorer中只有这个错误-在Chrome中一切正常。以下代码应重新创建此错误

任何帮助都将非常感谢您提供有关查看哪个包或java脚本的提示

---
title: "Please Help Me!"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(ggiraph)
```

Works {data-orientation=rows}
=====================================  

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
myIris <- iris
myIris$DataId<- row.names(iris)
g2 <- ggplot(data=myIris, aes(x=Sepal.Length, y=Sepal.Width, data_id=DataId)) + geom_point_interactive(fill = "green", alpha=.5)
ggiraph(code = print(g2), width_svg = 8, height_svg=4,
        hover_css="fill-opacity:1",flexdashboard =TRUE)

```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}

myIris <- iris
myIris$DataId<- row.names(iris)
g2 <- ggplot(data=myIris, aes(x=Sepal.Length, y=Sepal.Width, data_id=DataId)) + geom_point_interactive(fill = "green", alpha=.5)
ggiraph(code = print(g2), width_svg = 8, height_svg=4,
        hover_css="fill-opacity:1",flexdashboard =TRUE)
```

### Chart C

```{r}
myIris <- iris
myIris$DataId<- row.names(iris)
g2 <- ggplot(data=myIris, aes(x=Sepal.Length, y=Sepal.Width, data_id=DataId)) + geom_point_interactive(fill = "green", alpha=.5)
ggiraph(code = print(g2), width_svg = 8, height_svg=4,
        hover_css="fill-opacity:1",flexdashboard =TRUE)

```

Does Not Work {data-orientation=rows}
=====================================  

### Chart C

```{r}
myIris <- iris
myIris$DataId<- row.names(iris)
g2 <- ggplot(data=myIris, aes(x=Sepal.Length, y=Sepal.Width, data_id=DataId)) + geom_point_interactive(fill = "green", alpha=.5)
ggiraph(code = print(g2), width_svg = 8, height_svg=4,
        hover_css="fill-opacity:1",flexdashboard =TRUE)

```

### Chart D

```{r}
myIris <- iris
myIris$DataId<- row.names(iris)
g2 <- ggplot(data=myIris, aes(x=Sepal.Length, y=Sepal.Width, data_id=DataId)) + geom_point_interactive(fill = "green", alpha=.5)
ggiraph(code = print(g2), width_svg = 8, height_svg=4,
        hover_css="fill-opacity:1",flexdashboard =TRUE)

```
### Chart E

```{r}
myIris <- iris
myIris$DataId<- row.names(iris)
g2 <- ggplot(data=myIris, aes(x=Sepal.Length, y=Sepal.Width, data_id=DataId)) + geom_point_interactive(fill = "green", alpha=.5)
ggiraph(code = print(g2), width_svg = 8, height_svg=4,
        hover_css="fill-opacity:1",flexdashboard =TRUE)

```

---
标题：“请帮帮我！”
输出：
flexdashboard:：flex_仪表板：
方向：列
垂直布局：填充
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（GG2）
图书馆（ggiraph）
```
Works{数据方向=行}
=====================================  
列{数据宽度=650}
-----------------------------------------------------------------------
###图表A
```{r}
myIris我一拿到IE 11就会看一看谢谢David！我是ggiraph的超级粉丝！如果您能提供任何帮助，我们将不胜感激！有进展吗？我应该在flexdashboard github页面上提交一个问题吗？David，我在ggiraph的style.js中找到了解决这个问题的方法。我建议对github做一个很小的改动。对不起，我还没来得及考虑这个问题。很快。。。（我没有看到任何公关，你提交了吗？）