Merge pull request #8 from coatless/feature/add-ixsearch

Added search portal `search_ixquick()` (close #6)

Author: coatless

NAMESPACE

@@ -8,6 +8,7 @@ export(search_duckduckgo)
 export(search_gh)
 export(search_github)
 export(search_google)
+export(search_ixquick)
 export(search_site)
 export(search_so)
 export(search_stackoverflow)

NEWS.md

@@ -1,5 +1,18 @@
+# searcher 0.0.3
+
+## Features
+
+- Added search portal `search_ixquick()`: Searches with [ixquick](https://www.ixquick.com/). (#6)
+
+## Changes
+
+- Add `ixquick` as a valid engine to `search_site()`. (#6)
+- Included link to repository and bug tracker to `DESCRIPTION`.
+
 # searcher 0.0.2
 
+## Features
+
 - Added search portal functions
     - `search_site()`: Looks up search portal and _then_ searches with it.
     - `search_google()`: Searches with [Google](https://google.com/)
@@ -10,5 +23,8 @@
     - `search_stackoverflow()` or `search_so()`: Searches questions on [StackOverflow](https://stackoverflow.com/)
 - Add function generator `searcher()` to create function objects that can be
   used as error handlers in `option(error = )` and task call-backs.
+
+## UX
+
 - Created a `browse_url()` that checks to see if it is in interactive mode before
   trying to open a web browser 0.5 seconds after call. 

R/search-functions.R

@@ -28,6 +28,9 @@
 #' # Search DuckDuckGo
 #' search_duckduckgo("R language")
 #'
+#' # Search ixquick
+#' search_ixquick("RStudio IDE")
+#'
 #' # Search StackOverflow for Convolutions in the r tag
 #' search_stackoverflow("convolutions")
 #'
@@ -59,7 +62,8 @@ search_site = function(query,
                          "duckduckgo",
                          "ddg",
                          "bitbucket",
-                         "bb"
+                         "bb",
+                         "ixquick"
                        ),
                        rlang = TRUE) {
   site = tolower(site)
@@ -81,6 +85,7 @@ search_site = function(query,
     duckduckgo     = ,
     # empty case carried below
     ddg            = search_duckduckgo(query),
+    ixquick        = search_ixquick(query),
     search_google(query)
   )
 }
@@ -122,14 +127,18 @@ searcher = function(site  = c(
   "duckduckgo",
   "stackoverflow",
   "github",
-  "bitbucket"
+  "bitbucket",
+  "ixquick"
 ),
 rlang = TRUE) {
   function(query = geterrmessage()) {
     search_site(query, site, rlang = rlang)
   }
 }
 
+
+########################### Start Search Engines
+
 #' @rdname search_site
 #' @export
 #' @section Google Search:
@@ -179,6 +188,31 @@ search_duckduckgo = function(query = geterrmessage()) {
 #' @export
 search_ddg = search_duckduckgo
 
+
+#' @rdname search_site
+#' @export
+#' @section ixquick Search:
+#' The `search_ixquick()` function searches
+#' [ixquick](https://ixquick.com) using:
+#'  \code{https://ixquick.com/do/dsearch?query=<query>}
+#'
+#' For additional details regarding [ixquick](https://ixquick.com)'s
+#' search interface please see:
+#'  \url{https://support.ixquick.com/index.php?/Knowledgebase/Article/View/201/0/how-do-i-make-startpage-by-ixquick-my-default-search-engine-in-chrome}
+search_ixquick = function(query = geterrmessage()) {
+  if (!valid_query(query)) {
+    message("Please provide only 1 `query` term that is not empty.")
+    return(invisible(""))
+  }
+
+  browse_url("https://ixquick.com/do/dsearch?query=", query)
+}
+
+########################### End Search Engines
+
+
+########################### Start Search Code Repos
+
 #' @rdname search_site
 #' @export
 #' @section StackOverflow Search:
@@ -262,3 +296,5 @@ search_bitbucket = function(query = geterrmessage(), rlang = TRUE) {
 #' @rdname search_site
 #' @export
 search_bb = search_bitbucket
+
+########################### End Search Code Repos

man/search_site.Rd

@@ -23,6 +23,13 @@ test_that("Check link generation", {
     "https://duckduckgo.com/?q=toad"
   )
 
+  ##### ixquick
+
+  expect_identical(
+    search_ixquick("toad"),
+    "https://ixquick.com/do/dsearch?query=toad"
+  )
+
   ##### StackOverflow
 
   expect_identical(
@@ -61,14 +68,68 @@ test_that("Check link generation", {
 
 })
 
+test_that("Validate selection", {
+
+  expect_identical(
+    search_site("toad", "bb", rlang = FALSE),
+    "https://bitbucket.com/search?q=toad"
+  )
+
+  expect_identical(
+    search_site("", rlang = FALSE),
+    "",
+    "Verify empty query fall through"
+  )
+
+})
+
 
 test_that("Malformed search query validation", {
+
   expect_identical(
     search_google(""),
     "",
     "Empty string check if no error messages"
   )
 
+
+  expect_identical(
+    search_bing(""),
+    "",
+    "Empty string check if no error messages"
+  )
+
+
+  expect_identical(
+    search_ddg(""),
+    "",
+    "Empty string check if no error messages"
+  )
+
+  expect_identical(
+    search_ixquick(""),
+    "",
+    "Empty string check if no error messages"
+  )
+
+  expect_identical(
+    search_so(""),
+    "",
+    "Empty string check if no error messages"
+  )
+
+  expect_identical(
+    search_gh(""),
+    "",
+    "Empty string check if no error messages"
+  )
+
+  expect_identical(
+    search_bb(""),
+    "",
+    "Empty string check if no error messages"
+  )
+
   expect_identical(
     search_google(NULL),
     "",