在Shiny中有条件地设置rHandsontable中的空单元格格式

install.packages("shiny")
install.packages("rhandsontable")

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  titlePanel("设置rHandsontable中的空单元格格式"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      rHandsontableOutput("table")
    )
  )
)

server <- function(input, output) {
  output$table <- renderRHandsontable({
    data <- data.frame(
      Name = c("Alice", "Bob", "Charlie"),
      Age = c(25, NA, 30),
      Gender = c("Female", "Male", NA)
    )
    
    # 使用条件语句设置空单元格的格式
    data <- ifelse(is.na(data), "<span style='color:red'>空</span>", data)
    
    rhandsontable(data, formatEmptyCells = TRUE)
  })
}