如何在searchPanes扩展中为R中的DT::datatables指定列？

library(DT)

# 创建一个数据框
data <- data.frame(
  Name = c("John", "Jane", "Mike"),
  Age = c(25, 30, 35),
  City = c("New York", "London", "Tokyo")
)

# 创建一个datatable，并使用searchPanes扩展
datatable(data, extensions = 'SearchPanes', options = list(
  searchPanes = list(
    # 指定每个列的搜索窗格选项
    list(
      columns = 1, # 第一列
      options = list(
        emptyMessage = 'No name available' # 当搜索结果为空时显示的消息
      )
    ),
    list(
      columns = 2, # 第二列
      options = list(
        emptyMessage = 'No age available'
      )
    ),
    list(
      columns = 3, # 第三列
      options = list(
        emptyMessage = 'No city available'
      )
    )
  )
))