Merge pull request #8 from ArcadeAntics/main

Fixes to accommodate upcoming update to 'this.path'

R/memory_report.R

@@ -17,7 +17,9 @@ memory_report <- function() {
   # perform a manual garbage collection
   gc()
   # show me the filename of current file
-  thisfile <- basename(this.path())
+  thisfile <- basename(if (as.numeric_version(getNamespaceVersion("this.path")) >= "2.0.0")
+    sys.path()
+  else this.path())
 
   # message the used memory at this point
   message(paste(

R/wrap_up.R

@@ -38,6 +38,8 @@ wrap_up <- function(start_time = NULL) {
   beep("coin")
 
   # stop execution
-  stop(paste("wrap_up at", basename(this.path())))
+  stop(paste("wrap_up at", basename(if (as.numeric_version(getNamespaceVersion("this.path")) >= "2.0.0")
+    sys.path()
+  else this.path())))
 
 }