在基于Shiny的Quarto交互式报告中为透视表添加加载提示

要解决pivottabler透视表渲染耗时导致用户误以为功能失效的问题，你可以通过shinycssloaders包的withSpinner()函数为输出区域添加加载动画，以下是完整的实现方案：

核心实现步骤 #

• 加载必要依赖包：在setup块中导入shiny、pivottabler和shinycssloaders
• UI层包裹输出控件：用withSpinner()包裹pivottablerOutput()，让输出区域在渲染时自动显示加载动画
• Server层保留原有逻辑：renderPivottabler()内的透视表计算无需改动，耗时操作会自动触发加载状态

完整可运行代码 #

---
title: "带加载状态的透视表报告"
format:
  html:
    page-layout: full
    
server: shiny
---

#| context: setup

library(shiny)
library(pivottabler)
library(shinycssloaders)

#| context: ui

withSpinner(pivottablerOutput("pvt"), 
            color = "#007bff",  # 自定义加载动画颜色
            type = 3)           # 自定义加载动画样式（可选1-8）

#| context: server

output$pvt = renderPivottabler({
  # 若测试加载效果，可取消下行注释模拟耗时操作
  # Sys.sleep(3)
  
  pt <- PivotTable$new()
  pt$addData(bhmtrains)
  pt$addColumnDataGroups("TrainCategory")
  pt$addRowDataGroups("TOC")
  pt$defineCalculation(calculationName="TotalTrains", summariseExpression="n()")
  pt$evaluatePivot()
  pivottabler(pt)
})

自定义加载状态技巧 #

• 调整动画颜色：通过color参数指定十六进制颜色码
• 切换动画样式：type参数支持1-8种不同的加载动画样式
• 调整动画大小：用size参数设置动画尺寸（如size = 1.5放大1.5倍）

内容的提问来源于stack exchange，提问作者Bonnie Shakes