Использование вывода ggplot в htmltools

Question

Возникла проблема с выводом ggplot при работе с htmltools. Простой случай:

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 перед HTML, созданным htmltools.

Как заставить вывод графика отображаться там, где указано при обращении к тегу htmltools?