another way

r/tools/nixlibs.R

@@ -111,19 +111,19 @@ validate_checksum <- function(binary_url, libfile, hush = quietly) {
     checksum_file <- file.path(checksum_path, checksum_file)
 
     # Try `shasum`, and if that doesn't work, fall back to `sha512sum` if not found
-    checksum_ok <- tryCatch({
-      system2(
-        "shasum",
-        args = c("--status", "-a", "512", "-c", checksum_file)
-      ) == 0
-    },
-    error = function(e) {
-      system2(
+    # system2 doesn't generate an R error, so we can't use a tryCatch to
+    # move from shasum to sha512sum.
+    checksum_ok <- system2(
+      "shasum",
+      args = c("--status", "-a", "512", "-c", checksum_file),
+    ) == 0
+
+    if (!checksum_ok) {
+      checksum_ok <- system2(
         "sha512sum",
         args = c("--status", "-c", checksum_file)
       ) == 0
     }
-    )
 
     if (checksum_ok) {
       lg("Checksum validated successfully for libarrow")