memformat tabel data di RShiny

Question

Untuk tabel data saya, saya memiliki ui.Rfile berikut :

tabItem(tabName = "maForwardVsSpot", fluidRow(DT::dataTableOutput(outputId = "maForwardVsSpotTABLE"))

Saya server.Rterlihat seperti ini:

output$maForwardVsSpotTABLE <- DT::renderDataTable({ DT::datatable(dt.FvsS, rownames = FALSE, escape = FALSE, class = 'cell-border stripe', colnames = c("Date", "Spot", input$maStrategy, "Mean Difference"),
                    options = list(pageLength = 10, autoWidth = TRUE, scrollX = TRUE,
                                   columnDefs = list(list(className = 'dt-center', targets = c(0,1,2,3), width = '200px')),
                                   initComplete = JS("function(settings, json) {",
                                                     "$(this.api().table().header()).css({'background-color': '#007d3c', 'color': '#fff'});",
                                                     "}")
                    )
      )
  
})

Ini menghasilkan tabel data berikut, di mana bagian yang dilingkari merah tidak sesuai dengan saya, karena mereka harus mulai rata dengan tabel data dan tidak jauh dari kiri dan kanan.

Answer 1

Ini sepertinya berhasil:

tabItem(
  tabName = "maForwardVsSpot", 
  tags$div(
    style = "width: fit-content;",
    DT::dataTableOutput(outputId = "maForwardVsSpotTABLE")
  )
)