如何调整R包rhandsontable渲染表格的行标题列对齐方式？

我尝试调整R包rhandsontable渲染表格的行标题列内容对齐方式，当前行标题默认居中，希望改为左对齐或右对齐。尝试使用%>% hot_col(0, halign='htLeft')无效，因为该方法仅对非标题列生效，无法通过索引0访问行标题列。以下是具体场景代码及解决方案：

不含Shiny的代码版本 #

library(rhandsontable)

DF = data.frame(
        integer = 1:5,
        numeric = rnorm(5),
        factor_allow = factor(letters[1:5], 
                              levels = letters[5:1],
                              ordered = TRUE
                              ),
        stringsAsFactors = FALSE)

rownames(DF) <- c("One","Two","Three","Four","Five")

rhandsontable(DF,rowHeaderWidth = 96) %>%
hot_col("factor_allow", allowInvalid = TRUE)

包含Shiny的代码版本 #

library(rhandsontable)
library(shiny)


DF = data.frame(
        integer = 1:5,
        numeric = rnorm(5),
        factor_allow = factor(letters[1:5], 
          levels = letters[5:1],
          ordered = TRUE),
        stringsAsFactors = FALSE
      )

rownames(DF) <- c("One","Two","Three","Four","Five")


ui <- fluidPage(br(), rHandsontableOutput('my_table'))

server <- function(input, output, session) {

  output$my_table <- renderRHandsontable({
    rhandsontable(DF) %>%
    hot_col("factor_allow", allowInvalid = TRUE)
  })

}

shinyApp(ui,server)

解决方案 #

不含Shiny的场景 #

通过htmltools包添加自定义CSS规则，针对行标题对应的<th>标签设置文本对齐方式：

library(rhandsontable)
library(htmltools)

DF = data.frame(
        integer = 1:5,
        numeric = rnorm(5),
        factor_allow = factor(letters[1:5], 
                              levels = letters[5:1],
                              ordered = TRUE
                              ),
        stringsAsFactors = FALSE)

rownames(DF) <- c("One","Two","Three","Four","Five")

# 生成表格对象
my_table <- rhandsontable(DF,rowHeaderWidth = 96) %>%
  hot_col("factor_allow", allowInvalid = TRUE)

# 添加CSS样式并渲染
browsable(
  tagList(
    tags$head(
      tags$style("
        th.handsontable th {
          text-align: right !important; /* 改为left即可左对齐 */
          /* 可选：添加其他样式，比如颜色 */
          color: red !important;
        }
      ")
    ),
    my_table
  )
)

包含Shiny的场景 #

在Shiny的UI部分添加自定义CSS，直接作用于行标题元素：

library(rhandsontable)
library(shiny)

DF = data.frame(
        integer = 1:5,
        numeric = rnorm(5),
        factor_allow = factor(letters[1:5], 
          levels = letters[5:1],
          ordered = TRUE),
        stringsAsFactors = FALSE
      )

rownames(DF) <- c("One","Two","Three","Four","Five")

ui <- fluidPage(
  br(),
  # 添加自定义CSS
  tags$head(
    tags$style("
      th.handsontable th {
        text-align: right !important; /* 切换为left实现左对齐 */
      }
    ")
  ),
  rHandsontableOutput('my_table')
)

server <- function(input, output, session) {
  output$my_table <- renderRHandsontable({
    rhandsontable(DF) %>%
      hot_col("factor_allow", allowInvalid = TRUE)
  })
}

shinyApp(ui,server)

说明：使用!important是为了覆盖rhandsontable默认的CSS样式，确保自定义对齐方式生效。你可以根据需求将text-align的值改为left或right。

内容的提问来源于stack exchange，提问作者Village.Idyot