Merge pull request #115 from mlverse/updates

Appends https to DB Host if missing

Author: edgararuiz

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: chattr
 Title: Interact with Large Language Models in 'RStudio'
-Version: 0.1.0.9005
+Version: 0.1.0.9006
 Authors@R: c(
   person("Edgar", "Ruiz", , "[email protected]", role = c("aut", "cre")),
   person(given = "Posit Software, PBC", role = c("cph", "fnd"))

R/backend-databricks.R

@@ -31,10 +31,15 @@ ch_databricks_complete <- function(prompt, defaults, stream = TRUE) {
   )
 
   token <- ch_databricks_token(defaults)
+
   host <- ch_databricks_host(defaults)
+  host_url <- url_parse(host)
+  if(is.null(host_url$scheme)) host_url$scheme <- "https"
+
   user_agent <-paste0("chattr/", utils::packageVersion('chattr'))
 
-  req_result <- host %>%
+  req_result <- host_url %>%
+    url_build() %>%
     request() %>%
     req_url_path_append(defaults$path) %>%
     req_url_path_append(defaults$model) %>%