R Shiny:在tableOutput中格式化文本

library(shiny)

ui <- fluidPage(
  tableOutput("myTable")
)

server <- function(input, output) {
  output$myTable <- renderTable({
    # 在这里进行数据处理和准备
    data <- data.frame(
      Name = c("John", "Jane", "Mike"),
      Age = c(25, 30, 35),
      Country = c("USA", "Canada", "UK")
    )
    
    # 使用HTML标签和CSS样式格式化表格
    formattedTable <- paste0(
      "<table style='border-collapse: collapse;'>",
      "<thead>",
      "<tr>",
      "<th style='border: 1px solid black; padding: 8px;'>Name</th>",
      "<th style='border: 1px solid black; padding: 8px;'>Age</th>",
      "<th style='border: 1px solid black; padding: 8px;'>Country</th>",
      "</tr>",
      "</thead>",
      "<tbody>",
      "<tr>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Name[1], "</td>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Age[1], "</td>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Country[1], "</td>",
      "</tr>",
      "<tr>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Name[2], "</td>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Age[2], "</td>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Country[2], "</td>",
      "</tr>",
      "<tr>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Name[3], "</td>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Age[3], "</td>",
      "<td style='border: 1px solid black; padding: 8px;'>", data$Country[3], "</td>",
      "</tr>",
      "</tbody>",
      "</table>"
    )
    
    # 返回格式化后的表格
    HTML(formattedTable)
  })
}

shinyApp(ui, server)