avoid google in checking connection

NEWS.md

@@ -1,3 +1,9 @@
+# restez (in development)
+
+## Bug fixes
+
+* Check internet connection in mainland China
+
 # restez 1.0.0
 
 ## Post-review version of `restez` released.

R/biomartr-tools.R

@@ -7,14 +7,13 @@
 #' @family private
 # originally connected.to.internet
 check_connection <- function() {
-  if (is.character(RCurl::getURL("www.google.com"))) {
+  check_url <- "https://www.ncbi.nlm.nih.gov/"
+  if (RCurl::url.exists(check_url)) {
     TRUE
   } else {
-    stop(
-      "It seems that you are not connected to the internet.
-            Could you please check?",
-      call. = FALSE
-    )
+    msg <- paste0("Unable to connect to ", char(check_url),
+                  "Are you connected to the internet?")
+    stop(msg, call. = FALSE)
   }
 }
 

other/dev.R

@@ -1,12 +1,17 @@
 
 
-
 # TODO:
 
+problem_files <- c('gbinv17.seq', 'gbpln118.seq', 'gbpln12.seq')
+restez_path_set('.')
+for (problem_file in problem_files) {
+  file_download(problem_file)
+}
 
+db_create()
 
 devtools::load_all('.')
-restez_path_set('.')
+
 db_delete(everything = TRUE)
 restez_path_set('.')
 db_download()

tests/testthat/test-biomartr-tools.R

@@ -6,11 +6,11 @@ library(testthat)
 context('Testing \'biomartr-tools\'')
 test_that('check_connection() works', {
   with_mock(
-    `RCurl::getURL` = function(...) FALSE,
+    `RCurl::url.exists` = function(...) FALSE,
     expect_error(restez:::check_connection())
   )
   with_mock(
-    `RCurl::getURL` = function(...) '',
+    `RCurl::url.exists` = function(...) TRUE,
     expect_true(restez:::check_connection())
   )
 })