如何在rhandsontable中为不同行设置不同格式

你当前的代码仅支持单行设置整数或百分比格式，要实现多行分别格式化，需要修改参数传递和渲染逻辑，同时完善新列创建、禁止添加行的设置，具体调整如下：

关键修改点 #

• 将pct_row和int_row改为向量传入，指定需要格式化的多行索引
• 调整JavaScript渲染函数的判断逻辑，使用数组的includes方法检查当前行是否属于目标行组
• 添加allowRowAdd = FALSE禁止用户添加行
• 修正新列的创建逻辑，确保初始值为数值类型

修改后的完整代码 #

library(rhandsontable)
library(shiny)

mydata <- data.frame('Series 1' = c(1,2,0.03,0.04), check.names = FALSE)
rownames(mydata) <- c('Term A','Term B','Term C','Term D') 

ui <- fluidPage(
  rHandsontableOutput("mytable"),
  textInput('NewCol', 'Enter new column name'),
  actionButton("goButton", "Update Table")
)

server <- function(input, output) {

  output$mytable = renderRHandsontable(df())
  df <- eventReactive(input$goButton, {
    if(input$NewCol != "" && !is.null(input$NewCol) && input$goButton > 0){
      # 修正新列创建：生成与现有行数量一致的数值型列，初始值设为0
      newcol <- data.frame(rep(0, NROW(mydata)))
      names(newcol) <- input$NewCol
      mydata <<- cbind(mydata, newcol)
    }
    rhandsontable(mydata, 
                  rowHeaderWidth = 100, 
                  allowRowAdd = FALSE, # 禁止添加行
                  pct_row = c(2,3),    # 设置需要百分比格式化的行索引（从0开始）
                  int_row = c(0,1)     # 设置需要整数格式化的行索引
                  ) %>%
      hot_cols(
        colWidths = 80, 
        renderer = "function(instance, td, row, col, prop, value, cellProperties) {
           // 先调用默认数值渲染器
           Handsontable.renderers.NumericRenderer.apply(this, arguments);
           // 检查当前行是否属于百分比行组
           if (instance.params && instance.params.pct_row.includes(row)) {
               td.innerHTML = `${Number.parseFloat(value * 100)}%`;
           } 
           // 检查当前行是否属于整数行组
           else if (instance.params && instance.params.int_row.includes(row)) {
               td.innerHTML = `${Math.round(value)}`; // 确保显示为整数
           }
         }"
      )
  }, ignoreNULL = FALSE)
  
  # 同步表格修改到mydata
  observe(if (!is.null(input$mytable)) mydata <<- hot_to_r(input$mytable))
}

shinyApp(ui, server)

代码说明 #

1. 禁止添加行：通过allowRowAdd = FALSE参数，阻止用户添加新行，符合需求
2. 多行格式化逻辑：JavaScript中使用includes(row)判断当前行是否在目标行数组中，支持同时指定多行
3. 整数格式化优化：使用Math.round(value)确保数值显示为整数，避免因原始数据为小数导致的显示问题
4. 新列创建修正：用rep(0, NROW(mydata))生成数值型初始值，避免列名错误和类型问题

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