tablerCard() zoomable parameter not honoured when closable = TRUE

[leungi]

Issue

When closable is set to FALSE, zoomable parameter is not honoured.

Reprex (taken from tablerCard() docs)

library(shiny)
library(tablerDash)

shiny::shinyApp(
  ui = tablerDashPage(
    navbar = NULL,
    footer = NULL,
    title = "test",
    body = tablerDashBody(
      tablerCard(
        title = "Card",
        closable = FALSE,  # set to FALSE
        zoomable = TRUE,  # set to TRUE
        sliderInput("obs", "Number of observations:",
                    min = 0, max = 1000, value = 500
        ),
        plotOutput("distPlot"),
        status = "success",
        statusSide = "left"
      )
    )
  ),
  server = function(input, output) {
    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })
  }
)

Screenshot