Question

是否可以通过设置数据表选项来减少列填充？这个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
                                   )
)

感谢您的帮助。

Answer 1

经过一些Google搜索，我发现了一行代码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
        )
      )
  })

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

1 个答案: