type check bug with `databricks(httpPath)`

[simonpcouch]

Introduced in #781.

library(DBI)
library(odbc)

con <-
  dbConnect(
    databricks(),
    httpPath = "/sql/1.0/warehouses/<snip>"
  )
#> Error in `.local()`:
#> ! `HTTPPath` must be a single string or `NULL`, not absent.

con <-
  dbConnect(
    databricks(),
    HTTPPath = "/sql/1.0/warehouses/<snip>"
  )
#> Error in `.local()`:
#> ! `httpPath` must be a single string or `NULL`, not absent.

con <-
  dbConnect(
    databricks(),
    httpPath = "/sql/1.0/warehouses/<snip>",
    HTTPPath = "/sql/1.0/warehouses/<snip>"
  )
#> Error in `.local()`:
#> ! Exactly one of `httpPath` or `HTTPPath` must be supplied.

^{Created on 2024-04-12 with reprex v2.1.0}