使用openxlsx读取Excel后，如何在Shiny中展示含合并单元格的HTML表格？

核心方案：提取合并单元格信息+手动构建BasicTable #

由于basictabler目前没有直接从openxlsx工作簿工作表转换的内置函数，需要分两步实现需求：

• 从openxlsx读取的工作表中提取单元格值和合并单元格规则
• 基于这些信息手动构建BasicTable对象

步骤1：提取工作表数据与合并单元格信息 #

使用openxlsx的readWorksheet读取单元格原始值，用getMergeCells获取合并单元格的位置范围：

library(openxlsx)
library(basictabler)

# 读取目标工作簿和工作表
wb <- loadWorkbook("your_file.xlsx")
ws <- readWorksheet(wb, sheet = 1, colNames = FALSE, rowNames = FALSE)
merge_info <- getMergeCells(wb, sheet = 1)

步骤2：构建BasicTable对象并应用合并规则 #

先从数据框初始化BasicTable，再遍历合并单元格信息逐个添加合并规则：

# 初始化BasicTable实例
bt <- BasicTable$new()
bt$addData(ws)

# 遍历合并单元格信息，转换格式后应用合并
for (merge in merge_info) {
  # 将Excel的单元格范围格式（如"A1:C3"）转换为行号列号
  range_parts <- strsplit(merge$ref, ":")[[1]]
  start_cell <- openxlsx::convertFromExcelRef(range_parts[1])
  end_cell <- openxlsx::convertFromExcelRef(range_parts[2])
  
  # 应用单元格合并（basictabler的行/列计数从1开始）
  bt$mergeCells(
    startRow = start_cell$row,
    startColumn = start_cell$col,
    endRow = end_cell$row,
    endColumn = end_cell$col
  )
}

步骤3：在Shiny应用中展示表格 #

通过bt$renderTable()生成HTML代码，在Shiny的UI中用htmlOutput渲染：

library(shiny)

ui <- fluidPage(
  htmlOutput("merged_table")
)

server <- function(input, output) {
  output$merged_table <- renderUI({
    HTML(bt$renderTable())
  })
}

shinyApp(ui, server)

补充说明 #

• 若工作表包含表头，可调整readWorksheet的colNames参数，或在构建BasicTable时单独配置表头行
• 合并单元格的内容默认保留左上角单元格的值，与Excel原生行为一致
• 如需自定义样式，可通过bt$setStyle()为指定单元格添加CSS样式

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