列在DataTable上未对齐； R pkg：DT

Question

我使用DT包在R上有以下代码：

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行，水平滚动和分页的表。但是标题不对齐是这样的：

The misaligned headers

如果我单击Nº de dias以asc值进行排序，就可以解决此问题。请参见下图：

correct header alignment

有办法解决这个问题吗？

谢谢！