Add search_qwant()

Author: coatless

NAMESPACE

@@ -11,6 +11,7 @@ export(search_github)
 export(search_google)
 export(search_grep)
 export(search_ixquick)
+export(search_qwant)
 export(search_rscom)
 export(search_rseek)
 export(search_rstudio_community)

NEWS.md

@@ -2,11 +2,13 @@
 
 ## Features
 
-- Added search portal:
+- Added search portals:
     - `search_grep()`: Searches on grep.app. 
       ([#35](https://github.com/r-assist/searcher/issues/35), 
        [#37](https://github.com/r-assist/searcher/pull/37))
-
+    - `search_qwant()`: Searches on Qwant. 
+      ([#36](https://github.com/r-assist/searcher/issues/36), 
+       [#38](https://github.com/r-assist/searcher/pull/38))
 
 # searcher 0.0.6
 

R/index-sites.R

@@ -50,6 +50,7 @@ site_index =
     site_entry("duckduckgo", "https://duckduckgo.com/?q=", "ddg"),
     site_entry("startpage", "https://startpage.com/do/dsearch?query=", "sp"),
     site_entry("ecosia", "https://www.ecosia.org/search?q="),
+    site_entry("qwant", "https://www.qwant.com/?q="),
     site_entry(
       "stackoverflow",
       "https://stackoverflow.com/search?q=",

R/search-functions.R

@@ -5,8 +5,8 @@
 #'
 #' @param site   Name of site to search on. Supported options:
 #'               `"google"` (default), `"bing"`, `"duckduckgo"`, `"startpage"`,
-#'               `"rstudio community"`, `"twitter"`,`"stackoverflow"`,
-#'               `"github"`, and `"bitbucket"`.
+#'               `"qwant"`,`"rstudio community"`, `"twitter"`,`"stackoverflow"`,
+#'               `"github"`, `"grep"`, and `"bitbucket"`.
 #' @param query   Contents of string to search. Default is the error message.
 #' @param rlang   Search for results written in R. Default is `TRUE`
 #'
@@ -15,7 +15,7 @@
 #' @rdname search_site
 #' @export
 #' @seealso [search_google()], [search_bing()], [search_duckduckgo()],
-#'          [search_startpage()], [search_rseek()], [search_twitter()],
+#'          [search_startpage()], [search_rseek()], [search_qwant()], [search_twitter()],
 #'          [search_rstudio_community()], [search_stackoverflow()],
 #'          [search_github()], [search_grep()], [search_bitbucket()], and [searcher()]
 #' @examples
@@ -37,6 +37,9 @@
 #' # Search Rseek
 #' search_rseek("searcher")
 #'
+#' # Search Qwant
+#' search_qwant("Quarto")
+#'
 #' # Search RStudio Community
 #' search_rstudio_community("RStudio IDE")
 #'
@@ -77,6 +80,7 @@ search_site = function(query,
                          "ddg",
                          "startpage",
                          "sp",
+                         "qwant",
                          "rseek",
                          "rstudio community",
                          "rscom",
@@ -101,6 +105,7 @@ search_site = function(query,
     ddg            = search_duckduckgo(query, rlang),
     startpage      = ,      # empty case carried below
     sp             = search_startpage(query, rlang),
+    qwant          = search_qwant(query, rlang),
     rseek          = search_rseek(query, rlang),
     `rstudio community` = , # empty case carried below
     rscom          = search_rstudio_community(query, rlang),
@@ -232,6 +237,13 @@ search_ecosia = searcher("ecosia")
 #' `https://rseek.org/?q=<query>`
 search_rseek = searcher("rseek")
 
+#' @rdname search_site
+#' @export
+#' @section Qwant Search:
+#' The `search_qwant()` function searches
+#' [Qwant](https://qwant.com) using: `https://www.qwant.com/?q=<query>`
+search_qwant = searcher("qwant")
+
 ########################### End Search Engines
 
 

README.Rmd

@@ -64,7 +64,7 @@ The `search_*()` functions can be used to search a query directly from _R_ on
 major search engines, programming help websites, and code repositories. The following search
 platforms are supported: [Google](https://www.google.com), [Bing](https://www.bing.com/),
 [DuckDuckGo](https://duckduckgo.com/), [Startpage](https://www.startpage.com/en/),
-Ecosia, [rseek](https://rseek.org/), [Twitter](https://twitter.com/search), [StackOverflow](https://stackoverflow.com/search), 
+Ecosia, [rseek](https://rseek.org/), [Qwant](https://qwant.com/), [Twitter](https://twitter.com/search), [StackOverflow](https://stackoverflow.com/search), 
 [RStudio Community](https://community.rstudio.com/search), 
 [GitHub](https://github.com/search), [grep.app](https://grep.app/), 
 and [BitBucket](https://bitbucket.org/product/).
@@ -78,6 +78,7 @@ search_google("R project")
 search_bing("R project")
 search_ecosia("R project")
 search_rseek("R project")
+search_qwant("R project")
 search_duckduckgo("R project")                           # or search_ddg(...)
 search_startpage("R project")                            # or search_sp(...)
 
@@ -141,6 +142,7 @@ search_google()
 search_bing()
 search_ecosia()
 search_rseek()
+search_qwant()
 search_twitter()
 search_grep()
 search_duckduckgo()        # or search_ddg()