shinyDataFilter along with argonDash breaks the display

[shahronak47]

Hi Doug, first of all this issue is just fyi and feel free to close it since I feel it is too specific.

We are using argonDash and argonR packages along with shinyDataFilter which is creating an issue. Please see below small reproducible example -

library(shiny)
library(argonDash)
library(argonR)
library(shinyDataFilter)
library(DT)

df <- data.frame(a = factor(letters[1:8]), b = 1:8)

ui <- argonDashPage(
  title = "test",
  description = NULL,
  author = NULL,
  navbar = NULL,
  sidebar = NULL,
  header = NULL,
  
  argonDashBody(
    argonCard(width = 12,
              #tags$style(" .card {overflow-y: scroll}"),
              argonRow(
                argonColumn(width = 8,
                            DTOutput("data_summary")),
                argonColumn(width = 2,
                            shiny_data_filter_ui("data_filter")
                )
              )
    )
  ),
  footer = NULL
)

server <- function(input, output, session) {
  filtered_data <- callModule(
    shiny_data_filter,
    "data_filter",
    data = df,
    verbose = TRUE
  )
  
  output$data_summary <- renderDT({
    filtered_data()
  })
}

shinyApp(ui = ui, server = server)

We are solving this using css but letting you know if you want to apply a permanent fix for this one.

[dgkf]

Thanks for filing! My expectation is that both shinyDataFilter and argonDash are applying some CSS styles to the selectizeInput.

Thanks for the reproducible example. When I have some time to spare I can investigate.

If it does turn out to be a CSS conflict between the packages I'm sure I can find a way to make it more specific to avoid this issue.