如何在Shiny中正确地包含`kable_classic_2()`？

install.packages("shiny")
install.packages("knitr")

library(shiny)

ui <- fluidPage(
  # 其他UI组件...
  
  # 动态UI元素
  uiOutput("table")
  
  # 其他UI组件...
)

server <- function(input, output) {
  # 其他Server逻辑...
  
  # 动态UI元素的输出
  output$table <- renderUI({
    # 生成表格
    table <- kable_classic_2(data_frame)
    
    # 将表格包含在HTML标签中
    tags$div(HTML(table))
  })
  
  # 其他Server逻辑...
}

server <- function(input, output) {
  # 其他Server逻辑...
  
  # 动态UI元素的输出
  output$table <- renderUI({
    # 生成表格
    table <- kable_classic_2(data_frame)
    
    # 将表格包含在HTML标签中
    tags$div(HTML(table))
  })
  
  # 将动态UI元素的输出与UI组件关联
  output$mainPanel <- renderUI({
    mainPanel(
      # 其他UI组件...
      
      # 显示表格的UI组件
      uiOutput("table")
      
      # 其他UI组件...
    )
  })
  
  # 其他Server逻辑...
}