I'm trying to put a DT::datatable in a dashboard sidebar as in the example below. As you can see, the text of the table is not visible on the sidebar because of some color conflict. If you select a line on the table, the text becomes visible. I've tried all sorts of CSS hacks to get the datatable text to display properly in the sidebar but all I've succeeded in doing is making the text invisible in many different colors.
Does anyone know the proper way to get the table displayed properly on the sidebard background?
Thanks,
Andrew
library(shiny)
library(shinydashboard)
library(DT)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar( width = 250,
h3("Iris"),
DT::dataTableOutput("iristbl")
),
dashboardBody(
)
)
server <- function(input, output) {
output$iristbl <- renderDataTable({
DT::datatable(iris[1:10,c(1:2)], rownames=FALSE, selection="single",options = list(paging=FALSE, searching=FALSE, ordering=FALSE, info=FALSE))
})
}