nationalparkservice · RobLBaker · Jan 2, 2024 · Jan 2, 2024 · Jan 2, 2024 · Jan 2, 2024
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: NPSdataverse
 Title: Tools and Packages for Data and Metadata Manipulation
-Version: 0.0.1
+Version: 0.0.2
 Authors@R: c(
     person(given="Robert", family="Baker", email="[email protected]",
            role = c("aut", "cre"),

diff --git a/NAMESPACE b/NAMESPACE
@@ -2,3 +2,4 @@
 
 export(NPSdataverse_packages)
 export(detach_NPSdataverse)
+export(is_online)
diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,12 @@
-# NPSdatavers 0.0.1
+# NPSdataverse 0.0.2
+
+2024-01-02
+
+* Added function ability to load NPSdataverse (using library()) when offline
+* Now dynamically checks for github username rather than hardcoding in NPS
+* Fixed operands so that updates actually get checked
+
+# NPSdataverse 0.0.1
 
 2023-09-12
 

diff --git a/R/attach.R b/R/attach.R
@@ -89,3 +89,23 @@ NPSdataverse_packages <- function() {
   return(names)
 
 }
+
+#' Check internet connectivity
+#'
+#' @description Checks whether the system can ping github.com. Adapted from:https://stackoverflow.com/questions/5076593/how-to-determine-if-you-have-an-internet-connection-in-r
+
+#' @param site string defaults to https://github.com
+#'
+#' @return logical
+#' @export
+#'
+#' @examples
+#' is_online()
+is_online <- function(site="https://github.com/") {
+  tryCatch({
+    readLines(site,n=1)
+    TRUE
+  },
+  warning = function(w) invokeRestart("muffleWarning"),
+  error = function(e) FALSE)
+}
diff --git a/R/utils.R b/R/utils.R
@@ -53,3 +53,5 @@ check_loaded <- function() {
 is_attached <- function(x) {
   paste0("package:", x) %in% search()
 }
+
+
diff --git a/R/zzz.R b/R/zzz.R
@@ -1,6 +1,12 @@
 .onAttach <- function(...) {
+  #if internet access is available, check for updated packages:
   #check for github packages that need updating
-  .update_git_repos()
+
+  if(is_online()){
+    .update_git_repos()
+  } else {
+    packageStartupMessage("Warning: You are offline. Cannot check for package updates.\n")
+  }
 
   # See if any packages are needed
   needed <- pkgs[!is_attached(pkgs)]
@@ -17,3 +23,4 @@
   }
 
 }
+
diff --git a/README.Rmd b/README.Rmd
@@ -61,7 +61,7 @@ location and delete the offending package. Then try to re-install.
 ## Updating NPSdataverse packages
 
 Many of the NPSdataverse packages are in a phase of rapid development. When you
-load the NPSdataverse (using `library(NPSdataverse)`), NPSdataverse will check
+load the NPSdataverse (using `library(NPSdataverse)`), if you are online, NPSdataverse will check
 for new versions of the packages stored on GitHub (all the packages except
 r/EML). NPSdataverse will tell you if all your packages are up to date. 
 Conversely if any of the NPSdataverse packages need to be updated, NPSdataverse

diff --git a/README.md b/README.md
@@ -56,15 +56,15 @@ re-install.
 ## Updating NPSdataverse packages
 
 Many of the NPSdataverse packages are in a phase of rapid development.
-When you load the NPSdataverse (using `library(NPSdataverse)`),
-NPSdataverse will check for new versions of the packages stored on
-GitHub (all the packages except r/EML). NPSdataverse will tell you if
-all your packages are up to date. Conversely if any of the NPSdataverse
-packages need to be updated, NPSdataverse will indicate which packages
-need updating and how to perform the updates. If you do not get any
-notices about whether your packages are up to date or not, then the
-NPSdataverse package itself needs to be updated. See Installation for
-instructions on how to update the NPSdataverse package.
+When you load the NPSdataverse (using `library(NPSdataverse)`), if you
+are online, NPSdataverse will check for new versions of the packages
+stored on GitHub (all the packages except r/EML). NPSdataverse will tell
+you if all your packages are up to date. Conversely if any of the
+NPSdataverse packages need to be updated, NPSdataverse will indicate
+which packages need updating and how to perform the updates. If you do
+not get any notices about whether your packages are up to date or not,
+then the NPSdataverse package itself needs to be updated. See
+Installation for instructions on how to update the NPSdataverse package.
 
 ## Creating data packages
 

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/LICENSE.html b/docs/LICENSE.html
diff --git a/docs/articles/NPSdataverse.html b/docs/articles/NPSdataverse.html
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -1,7 +1,7 @@
 pandoc: 3.1.1
-pkgdown: 2.0.6.9000
-pkgdown_sha: 5bb671b1a8bac8e926479868681936f7c9ee41b3
+pkgdown: 2.0.7
+pkgdown_sha: ~
 articles:
   NPSdataverse: NPSdataverse.html
-last_built: 2023-09-12T22:27Z
+last_built: 2024-01-02T20:16Z
 
diff --git a/docs/reference/NPSdataverse_packages.html b/docs/reference/NPSdataverse_packages.html
diff --git a/docs/reference/detach_NPSdataverse.html b/docs/reference/detach_NPSdataverse.html
diff --git a/docs/reference/dot-print_cust_package_deps.html b/docs/reference/dot-print_cust_package_deps.html
diff --git a/docs/reference/dot-update_git_repos.html b/docs/reference/dot-update_git_repos.html
Original file line number	Diff line number	Diff line change
Expand Up		@@ -2,3 +2,4 @@

		export(NPSdataverse_packages)
		export(detach_NPSdataverse)
		export(is_online)
Original file line number	Diff line number	Diff line change
Expand Up		@@ -53,3 +53,5 @@ check_loaded <- function() {
		is_attached <- function(x) {
		paste0("package:", x) %in% search()
		}