Заголовки столбцов не совпадают с остальной частью таблицы

Учитывая приведенный ниже код R Shiny:

library(shiny)
library(DT)

# Define the user interface (UI)
ui <- fluidPage(
  titlePanel("test"),
  
  sidebarLayout(
    sidebarPanel(
      fileInput("file1", "Choose File 1", accept = ".csv"),
      fileInput("file2", "Choose File 2", accept = ".csv")
    ),
    
    mainPanel(
      tabsetPanel(
        tabPanel("Table 1", DT::dataTableOutput("table1")),
        tabPanel("Table 2", DT::dataTableOutput("table2"))
      )
    )
  )
)

# Define the server logic
server <- function(input, output) {
  
  # Reactive expression to read the first CSV file
  data1 <- reactive({
    req(input$file1)
    read.csv(input$file1$datapath)
  })
  
  # Reactive expression to read the second CSV file
  data2 <- reactive({
    req(input$file2)
    read.csv(input$file2$datapath)
  })
  
  # Render the first CSV file table
  output$table1 <- renderDataTable({
    data1()
  }, rownames = FALSE, options = list(scrollX = TRUE,
                                      autoWidth = TRUE,
                                      columnDefs = list(list(width = 'auto', targets = "_all")))
  )
  
  # Render the second CSV file table
  output$table2 <- renderDataTable({
    data2()
  }, rownames = FALSE, options = list(scrollX = TRUE,
                                      autoWidth = TRUE,
                                      columnDefs = list(list(width = 'auto', targets = "_all")))
  )
}

# Run the Shiny app
shinyApp(ui = ui, server = server)

Как только я загружаю файл в приложение, отображаемая таблица имеет несовпадение между заголовками и остальной частью таблицы. Как я могу это исправить?

Интересно, что это «исправлено», если я перейду на вкладку, а затем снова нажму на вкладку с проблемой.

Сразу после загрузки файла:

После нажатия на вкладку «Таблица 2» и возврата к вкладке «Таблица 1»: