Смещение столбцов в DataTable;R pkg: DT - PullRequest
Новая
       17

Смещение столбцов в DataTable;R pkg: DT

1 голос
/ 20 марта 2019

У меня есть этот код на R с использованием пакета DT: 

datatable( 
  data = relacao_das_turmas_365d %>%
    select(Turma = Turma_C, 
           Status,
           Farol,
           `Data de início`,
           `Nº de dias`,
           Coordenador, 
           `Alunos confirmados`,
           `Alunos Inscritos`,
           `Alunos Potenciais`,
           `Meta Alunos`,
           `% Meta de alunos`,
           Leads,
           `Investimento (Facebook)`,
           Faturamento, 
           ROI,
           `Ticket Médio`,
           `Taxa de conversão turma`,
           Local),

  extensions = 'Buttons',
  filter = 'top', 
  rownames = F, 

  options = list(scrollX = TRUE,
                 scrollY = TRUE,
                 pageLength = 15,                
                 searchHighlight = TRUE, 
                 initComplete = JS(
                   "function(settings, json) {",
                   "$(this.api().table().body()).css({'font-size': '68%'});",
                   "$(this.api().table().header()).css({'font-size': '68%'});",
                   "}"),

                 columnDefs = list(#list(width = '8px', targets = c(1:3)),
                                 list(className = 'dt-center', targets = 1:5),
                                 list(className = 'dt-left', targets = 6),
                                 list(className = 'dt-right', targets = 7:16),
                                 list(className = 'dt-center', targets = 17)),
                 dom = 'fBrtip',
                 buttons = list(
                              list(extend = 'colvis', columns = c(1:17)),
                              c('excel'))


                 )
) %>%

  formatCurrency(c('Investimento (Facebook)', 'Faturamento', 'ROI', 'Ticket Médio'), 'R$ ') %>%
  formatPercentage(c('Taxa de conversão turma','% Meta de alunos') , 2) %>%
  formatStyle(
    'Status',
    backgroundColor = styleEqual(c('Péssimo', 'Ruim', 'Bom', 'Excelente'), 
                                 c('#2E2E2E', '#FA5858', '#F4FA58', '#01C46B')),
    color = styleEqual(c('Péssimo', 'Ruim', 'Bom', 'Excelente'), 
                       c('white', 'white', '#2E2E2E', '#2E2E2E'))
  )

Выходными данными должны быть таблица с 15 строками, горизонтальной прокруткой и разбиением на страницы.Но заголовки смещены следующим образом:

Смещенные заголовки

И если я нажму Nº de dias для сортировки по значениям asc, это решит проблему.Смотрите на картинке ниже:

правильное выравнивание заголовка

Есть способ это исправить?

Спасибо!

...