filterInputStyle option in reactiveTheme() does not work

[jnhyeon]

Hello. Thanks for making such a nice package. I'm enjoying and using the packages you've created.

I found one problem while using it. Among the many options of reactiveTheme(), the filterInputStyle option didn't work.

Below is the example code.

thank you.

--------------- example code ------------- library(shiny) library(dplyr) library(reactable)

data(iris)

dark_theme <- reactableTheme( color = 'white', backgroundColor = 'rgb(52, 58, 64)', borderColor = 'rgb(69, 77, 85)', stripedColor = 'rgb(69, 77, 85)', highlightColor = 'rgb(69, 77, 85)', inputStyle = list(backgroundColor = 'rgb(52, 58, 64)'), filterInputStyle = list(color = 'white', # <- not working backgroundColor = 'rgb(69, 77, 85)'), selectStyle = list(backgroundColor = 'rgb(52, 58, 64)'), pageButtonHoverStyle = list(backgroundColor = 'rgb(69, 77, 85)'), pageButtonActiveStyle = list(backgroundColor = 'rgb(69, 77, 85)') )

ui <- fluidPage( checkboxInput('dark_mode', 'Dark mode', value = FALSE), reactableOutput('table') )

server <- function(input, output, session) { output$table <- renderReactable({ if (input$dark_mode) { iris %>% reactable(filterable = TRUE, theme = dark_theme) } else { iris %>% reactable(filterable = TRUE) } }) }

shinyApp(ui, server)

[glin]

Thanks for the report! This was inadvertently fixed in the development version some time ago, but I didn't realize it. I've now added a NEWS item for this:

• In reactableTheme(), filterInputStyle now applies correctly when rerendering a table in Shiny (#186).

[jnhyeon]

I confirmed that it worked fine after reinstalling from github. Thank you very much :)