`select_group_ui` does not work when column name has a space in it

[jojojojojojo2]

select_group_ui doesn't seem to work/acknowledge NAs if the column name has a space in it.

See below:

data("mpg", package = "ggplot2")
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      select_group_ui(
        id = "my-filters",
        params = list(
          manufacturer = list(inputId = "manufacturer", label = "Manufacturer:"),
          model = list(inputId = "model", label = "Model:"),
          trans = list(inputId = "trans", label = "Trans:"),
          class = list(inputId = "class", label = "Class:")
        ),
        vs_args = list(disableSelectAll = FALSE), 
        inline = FALSE
      )
    ),
    mainPanel(
      reactableOutput(outputId = "table")
    )
  )
)

server <- function(input, output) {
  res_mod <- select_group_server(
    id = "my-filters",
    data = reactive(mpg),
    vars = reactive(c("manufacturer", "model", "trans", "class"))
  )

  output$table <- renderReactable(reactable(res_mod()))
}

shinyApp(ui,server)

Changing the column name of model (so it includes a space) prevents the selectInput from working:

mpg <- mpg %>%
   mutate(model = if_else(drv == "f" | drv == "r", NA, model)) %>% 
  rename("Model with space" = "model")

I also cannot seem to pass parameters such as selected into the list(inputId = "model", label = "Model:", manufacturer = c("audi)). They seem to make no difference.