rmarkdown代码块可以打开输出类型吗？

Question

我想根据输出类型控制代码的执行方式。例如

library(ggplot2)
library(plotly)

p <- ggplot(cars, aes(x=dist, y=speed)) + geom_point()
if (output_to_html)
  ggplotly(p)
else 
  p

有没有办法在RMarkdown代码块中知道输出类型是什么？我在knitr::opts_current$get()

中找不到我想要的东西