如何在RStudio Viewer中生成rpact包的美观汇总表格？

rpact的summary()默认输出控制台文本格式，要在Viewer生成美观表格，得先把summary结果转成标准数据框，再用表格渲染工具处理。之前用kbl或gtsummary失败，是因为没先转换rpact的特殊summary对象。

直接用以下代码即可实现：

# 加载必要包
library(rpact)
library(gt)

# 生成组序设计并获取summary结果
design_result <- getDesignGroupSequential(
    beta = 0.05,
    typeOfDesign = "asKD",
    gammaA = 1,
    typeBetaSpending = "bsOF"
) |>
    summary()

# 转换为数据框并渲染成Viewer表格
as.data.frame(design_result) |>
    gt()

如果偏好kableExtra风格，也可以这么写：

library(rpact)
library(kableExtra)

design_result <- getDesignGroupSequential(
    beta = 0.05,
    typeOfDesign = "asKD",
    gammaA = 1,
    typeBetaSpending = "bsOF"
) |>
    summary()

as.data.frame(design_result) |>
    kbl() |>
    kable_styling()

核心逻辑是：rpact的summary返回的是自定义类对象，必须先通过as.data.frame()转为标准数据结构，才能被gt、kableExtra这类工具识别并渲染成Viewer中的美观表格。

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