has-internet

YuLab-SMU · Aug 26, 2024 · 7c7168f · 7c7168f
1 parent 04689ab
commit 7c7168f
Show file tree

Hide file tree

Showing 5 changed files with 31 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: yulab.utils
 Title: Supporting Functions for Packages Maintained by 'YuLab-SMU'
-Version: 0.1.6.005
+Version: 0.1.7
 Authors@R: c(person("Guangchuang", "Yu", email = "[email protected]", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-6485-8781")))
 Description: Miscellaneous functions commonly used by 'YuLab-SMU'.
 Imports:

diff --git a/NAMESPACE b/NAMESPACE
@@ -13,6 +13,7 @@ export(get_cache_element)
 export(get_cache_item)
 export(get_dependencies)
 export(get_fun_from_pkg)
+export(has_internet)
 export(initial_cache)
 export(initial_cache_item)
 export(install_zip)

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# yulab.utils 0.1.6.005
+# yulab.utils 0.1.7
 
 + `has_internet()` for testing internet connection (2024-08-26, Mon)
 + `pkg_ref()` to access textVersion of package reference (2024-08-21, Wed)

diff --git a/R/os.R b/R/os.R
@@ -36,6 +36,14 @@ has_bin <- function(bin) {
     return(exit_code == 0)    
 }
 
+##' test for internect connection via reading lines from a URL
+##'
+##'
+##' @title has_internet
+##' @param site URL to test connection
+##' @return logical value
+##' @export
+##' @author Guangchuang Yu
 has_internet <- function(site = "https://www.baidu.com/") {
     ret <- tryCatch(
         suppressWarnings(readLines(site, n = 1)),

diff --git a/man/has_internet.Rd b/man/has_internet.Rd