Блог

Главная - Вопросы по программированию - форматирование таблицы данных в RShiny

форматирование таблицы данных в RShiny

#r #shiny #datatables #dt #column-width

#r #блестящий #таблицы данных #dt #ширина столбца

Вопрос:

Для моей таблицы данных у меня есть следующий ui.R файл:

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

Мой server.R выглядит так:

 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'});",
                                                     "}")
                    )
      )
  
})

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

введите описание изображения здесь

Комментарии:

1. Я никогда этого не видел. Вы пробовали class = 'display cell-border stripe' ?

2. Да, я уже пробовал это, и это ничего не меняет..

Ответ №1:

Кажется, это работает:

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