R 从DT数据表输出中删除HTML标记

试图使用expss包在shiny中创建一个表，但是在下载数据时，HTML标记也出现在列标题中，这不应该出现

有人能帮忙吗

#install.packages("expss")
library("expss")
library(shiny)
shinyApp(
ui = fluidPage(fluidRow(column(12, dataTableOutput('txt')))),
server = function(input, output) {
  table <- reactive({
  data(mtcars)
  var_text = "vs_sum = vs==0, am_sum = am==1, gear_sum = gear == 4|gear==5, carb_sum = total(carb)"
  var_expr = parse(text = sprintf("data.frame(%s)", var_text)) # parse text string to expression

  var_list = calc(mtcars, 1*eval(var_expr)) %>% # caclulate data.frame with zero/one columns
    prepend_names() %>% # add names as labels
    mis_val(0) %>% # we don't need columns with FALSE condition
    set_val_lab(c("|" = 1)) # suppress values in table - we don't want to see TRUE/1

  mtcars %>%
    tab_prepend_values %>%
    tab_cols(total(), var_list) %>%
    tab_cells(cyl) %>%
    tab_stat_cpct() %>%
    tab_pivot()      
})


output$txt <- renderDataTable({
  as.datatable_widget(table(), rownames = F,filter = 'top', extensions = "Buttons",
                      options = list(
                        dom = 'Bfrtip',
                        scrollX = TRUE,
                        columnDefs = list(list(className = 'dt-center', targets = "_all")),
                        buttons = list(
                          'colvis',
                          list(
                            extend = 'collection',
                            buttons = c('csv', 'excel', 'pdf'),
                            text = 'Download'
                          )
                        )
                      ))
}, server = F)

#安装程序包（“expss”）
图书馆（“expss”）
图书馆（闪亮）
shinyApp(
ui=fluidPage（fluidRow（第12列，dataTableOutput（'txt'））），
服务器=功能（输入、输出）{
表%#caclulate data.frame（零/一列）
前置_name（）%>%#将名称添加为标签
mis_val（0）%>%#我们不需要条件为FALSE的列
set_val_lab（c（“|”=1））#抑制表中的值-我们不希望看到TRUE/1
mtcars%>%
制表符\u前置\u值%>%
选项卡列（总计（），变量列表）%>%
tab_单元格（气缸）%>%
tab_stat_cpct（）%>%
tab_pivot（）
})
输出$txt在as.datatable_小部件内的自定义标题和Excel导出工具之间似乎存在冲突。尝试
split_columns（table（））
-它会将表转换为常用数据。frame.hey Gregory，有没有一种方法可以将cyl作为问题文本打印在输出的每一行而不是第一行。是：split_columns（table（），remove_repeated=FALSE）