Change message when model is not present

Author: JBGruber

.gitignore

@@ -14,3 +14,4 @@ docker-compose.yml
 paper/paper.jats
 paper/paper.pdf
 paper/paper_files
+load-experiments.R

R/utils.r

@@ -20,20 +20,20 @@ check_model_installed <- function(model,
                                   auto_pull = FALSE,
                                   server = getOption("rollama_server",
                                                      default = "http://localhost:11434")) {
-                                                      
+
   model <- sub("^([^:]+)$", "\\1:latest", model)
   for (sv in server) {
     models_df <- list_models(server = sv)
     mdl <- setdiff(model, models_df[["name"]])
-    
+
     if (length(mdl) > 0L) {
       if (check_only) {
         return(invisible(FALSE))
       }
       if (interactive() && !auto_pull) {
         msg <- c(
-          "{cli::col_cyan(cli::symbol$info)} {sv}:",
-          " Model{?s} {.emph {mdl}} not installed on.",
+          "{cli::col_cyan(cli::symbol$info)}",
+          " Model{?s} {.emph {mdl}} not installed on {sv}.",
           " Would you like to download {?it/them}?"
         )
         auto_pull <- utils::askYesNo(cli::cli_text(msg))