[pre-commit.ci] auto fixes from pre-commit.com hooks

for more information, see https://pre-commit.ci

R/class-message.R

@@ -1,9 +1,9 @@
 new_gpttools_message <- function(role = character(),
-                               content = character(),
-                               datetime = character(),
-                               model = character(),
-                               service = character(),
-                               temperature = double()) {
+                                 content = character(),
+                                 datetime = character(),
+                                 model = character(),
+                                 service = character(),
+                                 temperature = double()) {
   if (!is_character(role)) cli_abort("`role` must be a character vector.")
   if (!is_character(content)) cli_abort("`content` must be a character vector.")
   if (!is_character(datetime, n = 1)) {
@@ -22,9 +22,9 @@ new_gpttools_message <- function(role = character(),
   new_rcrd(
     fields =
       tibble::tibble(
-      role = role,
-      content = content,
-    ),
+        role = role,
+        content = content,
+      ),
     datetime = datetime,
     model = model,
     service = service,
@@ -34,16 +34,16 @@ new_gpttools_message <- function(role = character(),
 }
 
 gpttools_message <- function(role = character(),
-                           content = character(),
-                           datetime = character(),
-                           model = character(),
-                           service = character(),
-                           temperature = double()) {
-  role        <- vec_cast(role, character())
-  content     <- vec_cast(content, character())
-  datetime    <- vec_cast(datetime, character())
-  model       <- vec_cast(model, character())
-  service     <- vec_cast(service, character())
+                             content = character(),
+                             datetime = character(),
+                             model = character(),
+                             service = character(),
+                             temperature = double()) {
+  role <- vec_cast(role, character())
+  content <- vec_cast(content, character())
+  datetime <- vec_cast(datetime, character())
+  model <- vec_cast(model, character())
+  service <- vec_cast(service, character())
   temperature <- vec_cast(temperature, double())
 
   new_gpttools_message(role, content, datetime, model, service, temperature)
@@ -53,11 +53,11 @@ gpttools_message <- function(role = character(),
 print.gpttools_message <- function(x, ...) {
   x_valid <- which(!is.na(x))
 
-  role        <- field(x, "role")[x_valid]
-  content     <- field(x, "content")[x_valid]
-  datetime    <- attr(x, "datetime")
-  model       <- attr(x, "model")
-  service     <- attr(x, "service")
+  role <- field(x, "role")[x_valid]
+  content <- field(x, "content")[x_valid]
+  datetime <- attr(x, "datetime")
+  model <- attr(x, "model")
+  service <- attr(x, "service")
   temperature <- attr(x, "temperature")
 
   n <- length(field(x, "role"))

R/harvest-docs.R

@@ -28,7 +28,9 @@ check_url <- function(url) {
       TRUE
     )
 
-  if (inherits(status, "try-error")) return(invisible(FALSE))
+  if (inherits(status, "try-error")) {
+    return(invisible(FALSE))
+  }
   status
 }
 

R/stream-chat.R

@@ -132,4 +132,3 @@ get_stream_pattern <- function(service) {
   )
   list(pattern = pattern, pluck = pluck)
 }
-

R/stream-cohere.R

@@ -19,9 +19,11 @@ stream_chat_cohere <- function(prompt,
     req_body_json(data = request_body) |>
     req_retry(max_tries = 3) |>
     req_error(is_error = function(resp) FALSE) |>
-    req_perform_stream(callback = element_callback,
-                              buffer_kb = 0.01,
-                              round = "line")
+    req_perform_stream(
+      callback = element_callback,
+      buffer_kb = 0.01,
+      round = "line"
+    )
 
   if (resp_is_error(response)) {
     status <- resp_status(response)

R/stream-ollama.R

@@ -15,9 +15,11 @@ stream_chat_ollama <- function(prompt,
     req_url_path_append("api") |>
     req_url_path_append("generate") |>
     req_body_json(data = body) |>
-    req_perform_stream(callback = element_callback,
-                              buffer_kb = 0.01,
-                              round = "line")
+    req_perform_stream(
+      callback = element_callback,
+      buffer_kb = 0.01,
+      round = "line"
+    )
 
   if (resp_is_error(response)) {
     status <- resp_status(response)

R/stream-openai.R

@@ -4,11 +4,13 @@ chat_openai <- function(prompt = "Tell me a joke about R.",
                         temperature = NULL,
                         stream = FALSE) {
   response <-
-    req_chat(prompt = prompt,
-             model = model,
-             history = history,
-             temperature = temperature,
-             stream = is_true(stream)) |>
+    req_chat(
+      prompt = prompt,
+      model = model,
+      history = history,
+      temperature = temperature,
+      stream = is_true(stream)
+    ) |>
     resp_chat()
 
   class(response) <- c("chat_tibble", class(response))
@@ -24,9 +26,10 @@ print.chat_tibble <- function(x, ...) {
     print_role <- rule(stringr::str_to_title(x$role[i]))
     print_role <-
       switch(x$role[i],
-           "assistant" = col_green(print_role),
-           "system"    = col_silver(print_role),
-           "user"      = col_blue(print_role))
+        "assistant" = col_green(print_role),
+        "system"    = col_silver(print_role),
+        "user"      = col_blue(print_role)
+      )
     writeLines(print_role)
     writeLines(x$content[i])
   }
@@ -37,8 +40,7 @@ print.chat_tibble <- function(x, ...) {
 # Make API Request --------------------------------------------------------
 
 req_base_openai <- function(
-    url = getOption("gpttools.url", "https://api.openai.com/")
-) {
+    url = getOption("gpttools.url", "https://api.openai.com/")) {
   request(url) |>
     req_url_path_append("v1", "chat", "completions")
 }
@@ -79,21 +81,26 @@ add_history <- function(prompt, history) {
         content = history$content
       )
     })
-  list(history,
-       list(role = "user",
-            content = prompt)
+  list(
+    history,
+    list(
+      role = "user",
+      content = prompt
+    )
   )
 }
 
 req_chat <- function(prompt, model, history, temperature, stream = FALSE) {
   req <-
     req_base_openai() |>
     req_auth_openai() |>
-    req_body_openai(prompt = prompt,
-                    model  = model,
-                    history = history,
-                    temperature = temperature,
-                    stream = is_true(stream)) |>
+    req_body_openai(
+      prompt = prompt,
+      model = model,
+      history = history,
+      temperature = temperature,
+      stream = is_true(stream)
+    ) |>
     req_retry(max_tries = 3) |>
     req_error(is_error = function(resp) FALSE)
 

R/stream-perplexity.R

@@ -20,9 +20,11 @@ stream_chat_perplexity <- function(prompt,
     ) |>
     req_body_json(data = request_body) |>
     req_retry(max_tries = 3) |>
-    req_perform_stream(callback = element_callback,
-                              buffer_kb = 0.01,
-                              round = "line")
+    req_perform_stream(
+      callback = element_callback,
+      buffer_kb = 0.01,
+      round = "line"
+    )
 
   if (resp_is_error(response)) {
     status <- resp_status(response)