Как отобразить таблицу данных в поле с цветом фона в Shinydashboard - PullRequest
Новая
       38

Как отобразить таблицу данных в поле с цветом фона в Shinydashboard

0 голосов
/ 01 мая 2020

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

library(shiny)
library(shinydashboard)


ui <- dashboardPage(
    dashboardHeader(title = "example"),
    dashboardSidebar(),
    dashboardBody(
        box(width=6, background = 'green',
            DT::dataTableOutput('table') 
        )
    )
)

server <- function(input, output, session) {

    output$table <- DT::renderDataTable({
        DT::datatable(iris)
    })
}    


shinyApp(ui, server)

1 Ответ

1 голос
/ 01 мая 2020

Это просто вопрос цвета вашего шрифта: 

library(shiny)
library(shinydashboard)


ui <- dashboardPage(
  dashboardHeader(title = "example"),
  dashboardSidebar(),
  dashboardBody(
    box(width=6, background = 'green',
        DT::dataTableOutput('table') 
    )
  )
)

server <- function(input, output, session) {

  output$table <- DT::renderDataTable({
    df <- iris
    DT::datatable(df) %>% 
      # rowid is a column as well, therefore zero to nrow()
      DT::formatStyle(0:nrow(df), color = "black")
  })
}    


shinyApp(ui, server)
...