如何在Shiny R语法中实现DataTables选项？

install.packages("shiny")
install.packages("DT")

library(shiny)
library(DT)

# ...

# 在ui函数中添加以下代码
tags$head(tags$script(src = "https://cdn.datatables.net/1.10.23/css/jquery.dataTables.min.css")),
tags$head(tags$script(src = "https://cdn.datatables.net/1.10.23/js/jquery.dataTables.min.js")),
DTOutput("myTable")

library(shiny)
library(DT)

# ...

# 在server函数中添加以下代码
output$myTable <- renderDT({
  # 创建数据框（示例数据）
  data <- data.frame(
    Name = c("Alice", "Bob", "Charlie"),
    Age = c(25, 30, 35),
    stringsAsFactors = FALSE
  )
  
  # 使用datatable函数创建表格，并设置DataTables选项
  datatable(data, options = list(
    searching = FALSE,  # 禁用搜索框
    paging = FALSE      # 禁用分页
  ))
})