Add grok

Author: coatless

NAMESPACE

@@ -10,6 +10,7 @@ export(ask_bing_copilot)
 export(ask_chatgpt)
 export(ask_claude)
 export(ask_copilot)
+export(ask_grok)
 export(ask_meta_ai)
 export(ask_mistral)
 export(ask_perplexity)

R/ai-search-functions.R

@@ -65,8 +65,8 @@ ai_searcher = function(site) {
 #' This function allows you to ask questions, get code help,
 #' or search for information using ChatGPT.
 #'
-#' @param query Contents of string to send to ChatGPT. Default is the last error message.
-#' @param prompt Optional prompt prefix to add before your query to guide how ChatGPT
+#' @param query Contents of string to send to AI Service. Default is the last error message.
+#' @param prompt Optional prompt prefix to add before your query to guide how the AI Service
 #'        responds. If NULL, uses the service-specific default prompt option.
 #'
 #' @return The generated search URL or an empty string.
@@ -173,6 +173,25 @@ ask_bing_copilot = ai_searcher("copilot")
 #' @export
 ask_copilot = ask_bing_copilot
 
+#' Search with Grok
+#'
+#' Searches xAI's Grok, which provides AI assistance focused on
+#' maximize truth and objectivity.
+#'
+#' @inheritParams ask_chatgpt
+#' @return The generated search URL or an empty string.
+#'
+#' @export
+#' @family AI assistants
+#' @examples
+#' # Basic query
+#' ask_grok("What are the best practices for R package development?")
+#'
+#' # Using a custom prompt
+#' ask_grok("How to optimize this R code for performance?",
+#'                  prompt = "Focus on efficiency and best practices:")
+ask_grok = ai_searcher("grok")
+
 #' Search with Meta AI
 #'
 #' Searches Meta AI, which provides general-purpose AI assistance

R/index-sites.R

@@ -111,6 +111,8 @@ site_index =
     site_entry("bing copilot", "https://www.bing.com/search?showconv=1&sendquery=1&q=",
                "copilot",
                keywords = NULL),
+    site_entry("grok", "https://www.grok.com/?q=",
+               keywords = NULL),
     site_entry("meta ai", "https://www.meta.ai/?q=",
                "meta",
                keywords = NULL)