fix check errors

Author: JBGruber

DESCRIPTION

@@ -17,10 +17,11 @@ Imports:
     cli,
     dplyr,
     httr2,
+    jsonlite,
+    methods,
     prettyunits,
     purrr,
-    tibble,
-    utils
+    tibble
 Suggests: 
     knitr,
     rmarkdown,
@@ -29,3 +30,4 @@ Suggests:
 VignetteBuilder: knitr
 Config/testthat/edition: 3
 Language: en-US
+URL: https://jbgruber.github.io/rollama/

R/models.r

@@ -155,9 +155,15 @@ copy_model <- function(model,
 
 #' List models that are available locally.
 #'
+#' @inheritParams query
+#'
 #' @return a tibble of installed models
 #' @export
-list_models <- function() {
+list_models <- function(server = NULL) {
+
+  if (is.null(server)) server <- getOption("rollama_server",
+                                           default = "http://localhost:11434")
+
   httr2::request(server) |>
     httr2::req_url_path_append("/api/tags") |>
     httr2::req_perform() |>

R/utils.r

@@ -3,6 +3,7 @@ the <- new.env()
 
 #' Ping server to see if Ollama is reachable
 #'
+#' @param silent suppress warnings and status (only return `TRUE`/`FALSE`).
 #' @inheritParams query
 #'
 #' @return TRUE if server is running
@@ -94,7 +95,6 @@ screen_answer <- function(x) {
 pgrs <- function(resp) {
   if (!getOption("rollama_verbose", default = interactive())) return(TRUE)
   the$str_prgs$stream_resp <- c(the$str_prgs$stream_resp, resp)
-  x <<- the$str_prgs$stream_resp
   resp <- the$str_prgs$stream_resp
 
   status <- strsplit(rawToChar(resp), "\n")[[1]] |>

inst/WORDLIST

@@ -1,3 +1,4 @@
+CMD
 ChatGPT
 Embeddings
 LLM
@@ -7,6 +8,7 @@ Modelfile
 Ollama
 OpenAI's
 OpenAI’s
+RMDs
 Reichardt
 config
 embeddings