Pull requests

.github/workflows/R-CMD-check.yaml

@@ -21,7 +21,6 @@ jobs:
           - {os: macos-latest,   r: 'release'}
           - {os: windows-latest, r: 'release'}
           - {os: ubuntu-latest,   r: 'devel', http-user-agent: 'release'}
-          - {os: ubuntu-latest,   r: 'release'}
           - {os: ubuntu-latest,   r: 'oldrel-1'}
 
     env:

R/detect_os_compat.r

@@ -0,0 +1,8 @@
+# Detect whether the user is on a mac or Windows OS (compatable with Frescalo) or a different OS. This function is needed to work with Mockery functions in tests
+detect_os_compat <- function() {
+    if (Sys.info()["sysname"] %in% c("Darwin", "Windows")) {
+        return(TRUE)
+    } else {
+        return(FALSE)
+    }
+}

R/run_fresc_file.R

@@ -17,6 +17,11 @@ function(
 	Plot=TRUE
 
 ){
+
+if (!detect_os_compat()) {
+    stop("Apologies, Frescalo is currently only avaiable on mac and Windows operating systems.")
+}
+
 # BODY OF FUNCTION
 	# Print status to screen 
 		cat("\nSAVING DATA TO FRESCALO WORKING DIRECTORY\n",rep("*",20),"\n\n", sep="")