美人鱼图表无法在Rmarkdown xaringan演示文稿中正确呈现

Question

我尝试在使用xaringan呈现的Rmarkdown html演示文稿中制作一些简单的流程图。我正在使用DiagrammeR包绘制美人鱼图表。但是，尽管图表可以在Rstudio查看器中正确显示，但样式不会显示在演示文稿输出中。

例如

DiagrammeR::mermaid("
graph LR;
A((Orange)) --> B((Grey));

classDef orange fill:#f96;
classDef grey fill:#d3d3d3;
class A orange;
class B grey;
")

在控制台上运行时，会按照预期生成一个橙色节点和一个灰色节点。然而，

---
title: "Simple Example" 
output: 
  xaringan::moon_reader
---


```{r setup, include=FALSE}

knitr::opts_chunk$set(echo = FALSE，消息= FALSE，warning = FALSE)

## Flow chart

```{r example, fig.align='center', fig.retina=3}

图：：美人鱼(“

图LR；

A((橙色)) --> B((灰色))；

classDef橙色fill:#f96；

classDef灰色fill:#d3d3d3；

A级橙色；

B级灰色；

")

使用默认的美人鱼颜色生成流程图，忽略样式。

有没有人知道解决这个问题的办法？我也愿意接受其他用于绘制简单树形图的软件包的建议。

Answer 1

美人鱼创建一个htmlwidget作为输出。您应该将它包装到一个<iframe>部分中。widgetframe包可以为你做到这一点，其他基于htmlwidget的应用程序，如DT，leaflet，Dygraph可以用这种方法嵌入到xaringan中。

---
title: "Simple Example" 
output: 
  xaringan::moon_reader
---


```{r setup, include=FALSE}

knitr::opts_chunk$set(echo = FALSE，消息= FALSE，warning = FALSE)

## Flow chart

```{r example, fig.align='center', fig.retina=3}

suppressPackageStartupMessages(library(widgetframe))

l=DiagrammeR::mermaid(“

图LR；

A((橙色)) --> B((灰色))；

classDef橙色fill:#f96；

classDef灰色fill:#d3d3d3；

A级橙色；

B级灰色；

")

widgetframe::frameWidget(l)