如何让Quarto HTML文档中的Plotly输出支持全屏展开？

问题描述 #

我想要在Quarto HTML文档中实现代码块生成的Plotly输出全屏展开功能，尝试使用bslib包的card(full_screen = TRUE)方法后，渲染出现两个问题：

• 点击展开按钮仅能将图表扩展至Quarto输出区域的大小，无法实现真正的全屏显示
• 展开按钮显示为图表底部的黑条，而非bslib官方示例中那种仅在悬停时出现的美观箭头样式

测试用Quarto文档代码 #

---
title: "Zoom Plotly?"
format: html
---

#| warn: false
#| message: false

suppressPackageStartupMessages({
  library(bslib)
  library(shiny)
  library(htmltools)
  library(plotly)
})   

card(title = "",
     full_screen = TRUE,
     plot_ly(x = diamonds$cut))

需求说明 #

希望图表的展开视图能匹配bslib示例中的卡片展开行为，并且偏好可以提交给quarto-cli或bslib包的补丁方案，让bslib::card()对Quarto用户实现“开箱即用”的全屏功能。

内容的提问来源于stack exchange，提问作者Matt Summersgill