R中的Highcharter和Flexdashboard不一致

我试图使用R中的

flexdashboard

和

highcharter

创建仪表板，我注意到

highcharter

的奇怪行为。下面是我的代码片段，应该有两个子菜单选项卡“波罗的海国家”和“欧洲其他地区”，但图表不会在选项卡“欧洲其他地区”中弹出。问题似乎出现在

highcharter

软件包中，因为一切正常，然后我使用从CRAN下载的软件包，当我使用

devtools:：install\u github（“jbkunst/highcharter”）

版本时，问题就会出现。有没有办法用新版的

highcharter

修复它

Tests
=======================================================================

Column {.tabset .tabset-fade data-width=700 .colored }
-----------------------------------------------------------------------

### Baltic countries {.no-padding}
```{r fig.height=7}
highchart() %>%
  hc_xAxis(type = "datetime",dateTimeLabelFormats = list(day = '%d of %b')) %>%
  hc_add_series(baltic_data, type="spline",hcaes(x=date,y=round(total_tests_imp), group = location), showInLegend = F, marker = list(enabled = FALSE)) %>%
  hc_tooltip(crosshairs = TRUE, borderWidth = 1.5, headerFormat = "", pointFormat = paste("Date: {point.x:%Y-%m-%d} <br>", "Total tests: <b>{point.y}<br>", "Country: <b>{series.name}</b>")) %>%
  hc_title(text = "Number of tests in Baltic countries") %>% 
  hc_subtitle(text = "Active testing started in the second part of March")

测试
=======================================================================
列{.tabset.tabset淡入淡出数据宽度=700.colored}
-----------------------------------------------------------------------
###波罗的海国家{无填充物}
```{r fig.height=7}
highchart（）%>%
hc_xAxis（type=“datetime”，dateTimeLabelFormats=列表（日期=“%d，共%b”））%>%
hc_添加_系列（波罗的海_数据，type=“spline”，HCAE（x=日期，y=四舍五入（总测试），组=位置），showInLegend=F，marker=list（enabled=FALSE））%>%
hc_工具提示（Crosshiers=TRUE，borderWidth=1.5，HeadPerformat=”，pointFormat=paste（“日期：{point.x:%Y-%m-%d}
，“总测试：{point.Y}
，“国家：{series.name}”））%>%
hc_标题（text=“波罗的海国家的试验次数”）%>%
hc_副标题（text=“主动测试于3月下旬开始”）

####欧洲其他地区{.no padding}
```{r fig.height=7}
highchart（）%>%
hc_xAxis（type=“datetime”，dateTimeLabelFormats=列表（日期=“%d，共%b”））%>%
hc_添加_系列（剩余欧洲，type=“spline”，HCAE（x=日期，y=四舍五入（总测试），组=位置），showInLegend=F，marker=list（enabled=FALSE））%>%
hc_工具提示（Crosshiers=TRUE，borderWidth=1.5，HeadPerformat=”，pointFormat=paste（“日期：{point.x:%Y-%m-%d}
，“总测试：{point.Y}
，“国家：{series.name}”））%>%
hc_标题（text=“欧洲其他地区的测试次数”）%>%
hc_副标题（text=“主动测试于3月下旬开始”）

仪表板菜单：

 ### Rest of the Europe {.no-padding}
```{r fig.height=7}
highchart() %>%
  hc_xAxis(type = "datetime",dateTimeLabelFormats = list(day = '%d of %b')) %>%
  hc_add_series(rest_europe, type="spline",hcaes(x=date,y=round(total_tests_imp), group = location), showInLegend = F, marker = list(enabled = FALSE)) %>%
  hc_tooltip(crosshairs = TRUE, borderWidth = 1.5, headerFormat = "", pointFormat = paste("Date: {point.x:%Y-%m-%d} <br>", "Total tests: <b>{point.y}<br>", "Country: <b>{series.name}</b>")) %>%
  hc_title(text = "Number of tests in rest of the Europe") %>% 
  hc_subtitle(text = "Active testing started in the second part of March")