R DataTables不显示表格上方的按钮

Question

渲染后 HTML 文件中的表格有问题。它们显示在表格的两侧（以附件picture 中显示的方式显示）。有什么办法可以强制按钮显示在表格上方而不是两侧？

我还检查了 dom = 'frtBip' 和 dom = '<B>frtip' 选项并获得了如图所示的结果。

datatable(data_tabel,
          extensions = c("Buttons","KeyTable"), options = list(
               dom = 'Bfrtip',
               buttons = list('copy', 'print', list(
                 extend = 'collection',
                 buttons = list(
                   list(extend = c('csv'), filename = 'BPTrait'),
                   list(extend = c('excel'), filename = 'BPTrait'),
                   list(extend = c('pdf'), filename = 'BPTrait')
                   ),
                 text = 'Download'
               )),
               keys = T
               ),
          rownames=F,
          colnames = c("Variant ID","Protein","Trait","-log10(p-value)"))

Answer 1

你想要这样的东西吗？

library(DT)
dtable <- datatable(iris,
                    extensions = c("Buttons","KeyTable"), 
                    options = list(
                      dom = '<"top"B>frtip',
                      buttons = list('copy', 'print'),
                      keys = T
                    ),
                    rownames=F)

library(htmltools)
htmlwidgets::prependContent(
  dtable,
  tags$style(HTML(".top {display:flex}"))
)

还是居中？

library(htmltools)
htmlwidgets::prependContent(
  dtable,
  tags$style(HTML(".top {display: flex; justify-content: center;}"))
)