在R Shiny中使用renderTable时如何格式化行数值输出

解决方案 #

你可以直接在renderTable的表达式末尾嵌入格式化逻辑，无需额外定义独立函数，修改后的output$table3代码段如下：

output$table3 <- renderTable(
  {
    if (isTruthy(input$modify)) {
      req(input$matrix3)
      
      df <- input$matrix3
      rv$mat3 <- matrix3Input("matrix3", df)
      colnames(df) <- paste("Series", 1:ncol(df))
      rownames(df) <- matrix3DefaultRownames
      rv$input <- df
    } else {
      df <- matrix3Default
      colnames(df) <- paste("Series", 1:ncol(df))
      rownames(df) <- matrix3DefaultRownames
    }
    # 行格式处理逻辑
    df <- as.data.frame(df)
    # 前两行输出无小数
    df[1:2, ] <- lapply(df[1:2, ], as.integer)
    # 最后两行保留两位小数并添加%符号
    df[3:4, ] <- lapply(df[3:4, ], function(x) sprintf("%.2f%%", x))
    
    df
  },
  rownames = TRUE,
  colnames = TRUE
)

逻辑说明 #

• 格式化逻辑在每次表格渲染时自动执行，同时适配首次启动默认渲染、修改表格确认后渲染两种场景
• 按行索引批量处理所有列，新增/删除列后格式规则依然生效
• 默认值渲染效果与需求完全匹配：A行输出1、B行输出24、C行输出0.00%、D行输出100.00%

内容的提问来源于stack exchange，提问作者Curious Jorge - user9788072