helper function creates hub accessors

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: depmap
 Type: Package
 Title: Cancer Dependency Map Data Package
-Version: 1.17.4
+Version: 1.17.5
 Authors@R: c(person(given = "Laurent", family = "Gatto",
                     email = "laurent.gatto@uclouvain.be",
                     comment = c(ORCID = "0000-0002-1520-2268"),

NEWS.md

@@ -1,5 +1,10 @@
 # depmap 1.17
 
+## Changes in version 1.17.5
+
+- Check if there's internet connectivity before creating hub
+  accessors.
+
 ## Changes in version 1.17.4
 
 - Fix .onLoad() to create Hub accessors for all experiments, including

R/loading_functions.R

@@ -1,3 +1,16 @@
+##' @importFrom utils read.csv
+##' @importFrom ExperimentHub createHubAccessors
+.createDepMapHubAccessors <- function() {
+    fls <- dir(system.file("extdata", package = "depmap"),
+               full.names = TRUE, pattern = "metadata")
+    sapply(fls,
+           function(fl) {
+               titles <- read.csv(fl, stringsAsFactors = FALSE)$Title
+               ExperimentHub::createHubAccessors(pkgname, titles)
+           })
+}
+
+
 ##' @importFrom AnnotationHub query
 ##' @importFrom ExperimentHub ExperimentHub
 
@@ -9,7 +22,7 @@ depmap_data_loading <- function(name) {
 }
 
 #' @export
-depmap_rnai <- function() 
+depmap_rnai <- function()
    depmap_data_loading("rnai")
 
 #' @export

R/zzz.R

@@ -1,19 +1,10 @@
-##' @importFrom utils read.csv
 ##' @importFrom curl has_internet
-##' @importFrom ExperimentHub createHubAccessors
 .onLoad <- function(libname, pkgname) {
-    fls <- dir(system.file("extdata", package = pkgname),
-               full.names = TRUE, pattern = "metadata")
-    if (curl::has_internet()) {
-        sapply(fls,
-               function(fl) {
-                   titles <- read.csv(fl, stringsAsFactors = FALSE)$Title
-                   ExperimentHub::createHubAccessors(pkgname, titles)
-               })
-    } else {
+    if (curl::has_internet())
+        .createDepMapHubAccessors()
+    else
         warning("Not internet connectivity. Unable to create Hub accessors.",
                 call. = FALSE)
-    }
 }
 
 .onAttach <- function(libname, pkgname) {