Replace switchInput with input_switch (#883)

# Pull Request

Part of insightsengineering/nestdevs-tasks#111



<details><summary>Example app:</summary>
<p>

```r
data <- teal_data()
data <- within(data, {
  iris <- iris
  mtcars <- mtcars
  women <- women
  faithful <- faithful
  CO2 <- CO2
})

app <- init(
  data = data,
  modules = modules(
    tm_variable_browser(
      label = "Variable browser"
    )
  )
)
if (interactive()) {
  shinyApp(app$ui, app$server)
}
```

</p>
</details>

Author: llrs-roche

R/tm_variable_browser.R

@@ -387,13 +387,11 @@ srv_variable_browser <- function(id,
       varname <- plot_var$variable[[dataname]]
       df <- data()[[dataname]]
 
-      numeric_ui <- shinyWidgets::switchInput(
-        inputId = session$ns("remove_NA_hist"),
+      numeric_ui <- bslib::input_switch(
+        id = session$ns("remove_NA_hist"),
         label = "Remove NA values",
         value = FALSE,
-        width = "50%",
-        labelWidth = "100px",
-        handleWidth = "50px"
+        width = "100%"
       )
 
       var <- df[[varname]]