export ollama_is_available()

NAMESPACE

@@ -5,6 +5,7 @@ export(ollama_copy_model)
 export(ollama_delete_model)
 export(ollama_get_library)
 export(ollama_get_tags)
+export(ollama_is_available)
 export(ollama_list)
 export(ollama_pull_model)
 export(ollama_show_model_info)

R/ollama_is_available.R

@@ -0,0 +1,36 @@
+#' Check if Ollama is running
+#' 
+#' @param verbose Display status message?
+#'
+#' @return A logical value indicating if Ollama is running or not, invisible.
+#' 
+#' @export
+#' @examples
+#' ollama_is_available()
+#' 
+ollama_is_available <- function(verbose = FALSE) {
+  request <- ollama_api_url() %>%
+    httr2::request() 
+
+  check_value <- logical(1)
+
+  rlang::try_fetch({
+    response <- httr2::req_perform(request) %>% 
+      httr2::resp_body_string() 
+
+    if (verbose) cli::cli_alert_success(response)
+    check_value <- TRUE
+
+  }, error = function(cnd) {
+
+    if(inherits(cnd, "httr2_failure")) {
+      if (verbose) cli::cli_alert_danger("Couldn't connect to Ollama in {.url {ollama_api_url()}}. Is it running there?")
+    } else {
+      if (verbose) cli::cli_alert_danger(cnd)
+    }
+    check_value <- FALSE
+  })
+
+  invisible(check_value)
+}
+

R/ollama_url.R

@@ -8,20 +8,3 @@ ollama_set_task <- function(task) {
         httr2::req_url_path_append("api") %>% 
         httr2::req_url_path_append(task)
 }
-
-ollama_check_running <- function() {
-    request <- ollama_api_url() %>%
-        httr2::request() 
-
-    rlang::try_fetch({
-        httr2::req_perform(request) %>% 
-            httr2::resp_body_string() 
-    }, error = function(cnd) {
-        if(inherits(cnd, "httr2_failure")) {
-            cli::cli_abort("Couldn't connect to Ollama in {.url {ollama_api_url()}}. Is it running there?", parent = cnd)
-        } else {
-            cnd
-        }
-    })
-    return(TRUE)
-}