Make sed call in update-checksums.R crossplat

amoeba · amoeba · commit cb8b0f3b5db9 · 2024-12-03T19:55:30.000-08:00
diff --git a/r/tools/update-checksums.R b/r/tools/update-checksums.R
@@ -62,7 +62,7 @@ for (path in binary_paths) {
   if (grepl("windows", path)) {
     cat(paste0("Converting ", path, " to windows style line endings\n"))
     # UNIX style line endings cause errors with mysys2 sha512sum
-    sed_status <- system2("sed", args = c("-i", "s/\\\\r//", file))
+    sed_status <- system2("sed", args = c("-i", "-e", "s/\\\\r//", file))
     if (sed_status != 0) {
       stop("Failed to remove \\r from windows checksum file. Exit code: ", sed_status)
     }

Original file line number	Diff line number	Diff line change
`@@ -62,7 +62,7 @@ for (path in binary_paths) {`
`62`	`62`	`if (grepl("windows", path)) {`
`63`	`63`	`cat(paste0("Converting ", path, " to windows style line endings\n"))`
`64`	`64`	`# UNIX style line endings cause errors with mysys2 sha512sum`
`65`		`- sed_status <- system2("sed", args = c("-i", "s/\\\\r//", file))`
	`65`	`+ sed_status <- system2("sed", args = c("-i", "-e", "s/\\\\r//", file))`
`66`	`66`	`if (sed_status != 0) {`
`67`	`67`	`stop("Failed to remove \\r from windows checksum file. Exit code: ", sed_status)`
`68`	`68`	`}`