调整 Shiny 中 DT table 下载按钮的位置

Adjust place of downloading buttons of a DT table in Shiny

please see this picture 我有一个DTtable在闪亮。我添加了用于下载 table 内容的按钮(复制、CSV、Excel、PDF)。但我想改变第一个按钮和“显示条目数”之间的距离(请参阅附图和下面的代码)。如何设置第一个按钮和“显示条目”之间的距离?

output$fancyTable<- renderDataTable ({    
DT::datatable(data, extensions = "Buttons", options = list(paging = TRUE, scrollX=TRUE, searching = TRUE, ordering = TRUE,dom = 'l<"sep">Bfrtip',

                                 buttons = c('copy', 'csv', 'excel', 'pdf'),
                                 pageLength=5,
                                 lengthMenu=c(5,10,20,100) ))

这是我的 UI 代码 table:

 mainPanel(
                 # actionButton("download1", "Download table"),
                  tags$head(
                   tags$style(HTML("
                .sep {
                   width: 20px;
                   }
                     "))
                       ),
                 DT::dataTableOutput("fancyTable"),
                 tags$hr(),
                 plotlyOutput("fancyPlot"
                              ,width = "auto"
                              , height = "auto"
                 ),
                 

enter image description here

您可以执行 dom = 'l<"sep">Bfrtip',这将在 lB 之间添加一个 div,并具有 class sep。然后在你闪亮的应用程序中为 sep class:

定义 CSS
.sep {
  width: 20px;
  height: 1px;
  float: left;
}

您可以在 Shiny UI 中设置此 CSS,如下所示:

tags$head(
  tags$style(HTML("
    .sep {
      width: 20px;
      height: 1px;
      float: left;
    }
  "))
)