如何删除数据表列中的填充答案

【问题标题】：how to remove padding in datatable column如何删除数据表列中的填充
【发布时间】：2018-12-30 12:23:27
【问题描述】：

有没有办法设置数据表选项来减少列填充？这个link 建议使用autoWidth=TRUE 和scrollX=TRUE，但它在我的代码中不起作用。

正如您在下图中看到的那样，列之间存在很大的间隙，迫使用户滚动浏览，如果可能的话，我希望避免这种情况。这个link 和this 在java中有同样的问题

这是渲染数据表的代码。

output$book_table <-  DT::renderDT(RVTables$book %>% 
                                     filter(deal==as.numeric(input$deal_choice)),
                                   selection = list(mode="single",selected=row_edited),
                                   editable = TRUE,
                                   rownames = FALSE,
                                   options=list(
                                     autoWidth=TRUE,
                                     scrollX = TRUE,
                                     ordering=FALSE,
                                     pageLength=12,
                                     scrollY = TRUE,
                                     bLengthChange= FALSE,
                                     searching=FALSE
                                   )
)

感谢您的帮助。

【问题讨论】：

'strategy' col 宽度与列名长度相同，因此如果您希望它更小，请使用换行文本或更小的列名。
是的，我可以这样做，但是没有简单的方法可以减少列标题之间的间隙吗？名字后面有很多填充
据我所知，没有。列的长度不小于列名的长度。
没关系，但似乎有填充 btw 列标题，看看间隙 btw 数字列和列 2 和 3

标签： r shiny dt

【解决方案1】：

经过一些谷歌搜索后，我找到了代码行class="compact cell-border",，它减少了列标题周围的填充。这是我渲染表格的代码，以防它帮助其他人。

output$book_table <- DT::renderDataTable({    
    DT::datatable(
      deal_reactive(),
      editable = TRUE,
      rownames = FALSE,
      class="compact cell-border",
      selection = list(mode = "single", 
                       target = "row", 
                       selected = previous_row),
      options = list(
        dom="t",
        autoWidth=TRUE,
        scrollX = TRUE,
        ordering=FALSE,
        pageLength = 28, 
        bLengthChange= FALSE,
        displayStart = previous_page,
        searching=FALSE
        )
      )
  })

【讨论】：