BUG FIX: Internal r_version_has_bug18119() failed to infer the SVN re…

…vision, which in turn led to Issue #65
HenrikBengtsson · Aug 3, 2021 · 07d27d0 · 07d27d0
1 parent f630586
commit 07d27d0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/parallelly_disable_parallel_setup_if_needed.R b/R/parallelly_disable_parallel_setup_if_needed.R
@@ -17,10 +17,10 @@ r_version_has_bug18119 <- local({
     revision <- Sys.getenv("R_PARALLELLY_R_REVISION", NA_character_)
     if (is.na(revision)) {
       revision <- R.version[["svn rev"]]
-      if (length(revision) != 1 || !is.finite(revision)) revision <- -1L
+      if (length(revision) != 1) revision <- -1L
     }
     revision <- as.integer(revision)
-
+    if (!is.finite(revision)) revision <- -1L
     list(version = version, revision = revision)
   }