在htmltools中使用ggplot输出

Question

使用ggtool获取ggplot输出时出现问题。 简单案例：

library(tidyverse)
library(ggplot2)
library(htmltools)
mpg_plot <- mpg %>% 
  ggplot(mapping=aes(x=displ, y=hwy)) + 
  geom_point()

tags$div(
         div('This is one div'),
         div(show(mpg_plot))
)

编织后产生的东西是：

<p><img src="data:image/png;base64, ...etc"></p>
<div>
  <div>This is one div</div>
  <div></div>
</div>

div(plot(mpg$displ,mpg$hwy))也会发生相同的行为-生成图像，但将其添加到HTML输出中，在之前使用htmltools生成的HTML。

如何使绘图输出显示在htmltools标记的调用中指定的位置？