Add aliases for ask_le_chat() to ask_mistral() and ask_xai() to ask_grok()

Author: coatless

NAMESPACE

@@ -11,9 +11,11 @@ export(ask_chatgpt)
 export(ask_claude)
 export(ask_copilot)
 export(ask_grok)
+export(ask_le_chat)
 export(ask_meta_ai)
 export(ask_mistral)
 export(ask_perplexity)
+export(ask_xai)
 export(search_bb)
 export(search_bing)
 export(search_bitbucket)

R/ai-search-functions.R

@@ -149,6 +149,11 @@ ask_perplexity = ai_searcher("perplexity")
 #'             prompt = "Explain the error and fix it:")
 ask_mistral = ai_searcher("mistral")
 
+
+#' @rdname ask_mistral
+#' @export
+ask_le_chat = ask_mistral
+
 #' Search with Bing Copilot
 #'
 #' Searches Microsoft Bing Copilot, which combines web search results
@@ -192,6 +197,10 @@ ask_copilot = ask_bing_copilot
 #'                  prompt = "Focus on efficiency and best practices:")
 ask_grok = ai_searcher("grok")
 
+#' @rdname ask_grok
+#' @export
+ask_xai = ask_grok
+
 #' Search with Meta AI
 #'
 #' Searches Meta AI, which provides general-purpose AI assistance

R/search-functions.R

@@ -11,8 +11,8 @@
 #'               `"twitter"` or `"x"`, `"bluesky"`, `"mastodon"`, `"stackoverflow"`,
 #'               `"github"`, `"grep"`, `"bitbucket"`,
 #'               `"chatgpt"`, `"claude"`, `"perplexity"`,
-#'               `"mistral"`, `"bing copilot"` or `"copilot"`, and
-#'               `"meta ai"` or `"meta"`.
+#'               `"mistral"` or `"le chat"`, `"bing copilot"` or `"copilot"`, and
+#'               `"grok"` or `"xai"`, `"meta ai"` or `"meta"`.
 #' @param query   Contents of string to search. Default is the error message.
 #' @param rlang   Search for results written in R. Default is `TRUE`
 #' @param prompt  Optional prompt prefix to add before your query to guide how the AI
@@ -56,6 +56,7 @@ search_site = function(query,
                          "mistral",
                          "bing copilot",
                          "copilot",
+                         "grok",
                          "meta ai",
                          "meta"
                        ),
@@ -92,9 +93,12 @@ search_site = function(query,
     chatgpt        = ask_chatgpt(query, prompt),
     claude         = ask_claude(query, prompt),
     perplexity     = ask_perplexity(query, prompt),
+    `le chat`      = ,      # empty case carried below
     mistral        = ask_mistral(query, prompt),
     `bing copilot` = ,      # empty case carried below
     copilot        = ask_bing_copilot(query, prompt),
+    xai            = ,      # empty case carried below
+    grok           = ask_grok(query, prompt),
     `meta ai`      = ,      # empty case carried below,
     meta           = ask_meta_ai(query, prompt)
   )