Input box for editing dataTable is white on white when cell selected

[debruine]

If style is set to bootstrap in an editable dataTable, the input box text is white on white when the cell is selected (so unreadable) if the style is bootstrap or bootstrap4. I've fixed it locally by setting the css to:

.table.dataTable input {
  color: black !important;
}

This might need to be passed along to whoever controls the bootstrap theme.

Minimal reproducible example:

library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar() ,
    dashboardBody(
        dataTableOutput("dt")
    )
)

server <- function(input, output) {
    output$dt <- renderDataTable(
        data.frame(a = 1:3),
        editable = TRUE,
        style = 'bootstrap'
    )
}

# Run the application
shinyApp(ui = ui, server = server)