由于某些原因,我无法使数据表的列标题正确地左对齐:
library(shiny)
library(DT)
library(ggplot2)
ui <- fluidPage(
title = "Examples of DataTables",
sidebarLayout(mainPanel =
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("diamonds", DT::dataTableOutput("mytable1"))
)
),sidebarPanel = sidebarPanel()
)
)
server <- function(input, output) {
# choose columns to display
diamonds2 = ggplot2::diamonds[sample(nrow(ggplot2::diamonds), 1000), ]
output$mytable1 <- DT::renderDataTable({
DT::datatable(diamonds2,
extensions = c('Buttons',
#'Autofill',
'ColReorder',
'Responsive',
'Scroller'),
style = 'bootstrap',
class = 'table-bordered stripe table-condensed',
filter = list(position = 'top', clear = FALSE),
rownames = FALSE,
options = list( dom = 'Bfrtip',
buttons = list(list(extend = 'csv',
buttons = c('csv'),
exportOptions = list(modifiers = list(page = "current"))
)
),
search = list(regex = TRUE, caseInsensitive = FALSE),
#autofill = TRUE,
colReorder = TRUE,
deferRender = TRUE,
scrollY = 200,
scroller = TRUE,
columnDefs = list(list(className = 'dt-left', targets = '_all'))
)
)
})
}
shinyApp(ui, server)
自己看
2条答案
按热度按时间d5vmydt91#
这个应该够了。
使用
#mytable1 .table th
可以访问表头。使用
#mytable1 .table td
,我们可以访问表格单元格。使用
text-align: left;
,我们将文本左对齐。8nuwlpux2#
这对我很有效: