GH-44114: [R] Add Rocky and opensuse to the allowlist for libarrow bi…

…naries (#44124)

### Rationale for this change

Add two distros not checked on CRAN to our allow list for easier binary
installs

### What changes are included in this PR?

Added to distro names

### Are these changes tested?

These configurations are tested elsewhere, the real test will come later
if CRAN somehow runs these covertly

### Are there any user-facing changes?

Faster, more reliably installs without intervention
* GitHub Issue: #44114

---------

Co-authored-by: eitsupi <[email protected]>

r/tools/nixlibs-allowlist.txt

@@ -2,3 +2,5 @@ ubuntu
 centos
 redhat
 rhel
+rocky
+opensuse

r/tools/nixlibs.R

@@ -221,8 +221,8 @@ check_allowlist <- function(os, allowed = "https://raw.githubusercontent.com/apa
   allowlist <- tryCatch(
     # Try a remote allowlist so that we can add/remove without a release
     suppressWarnings(readLines(allowed)),
-    # Fallback to default: allowed only on Ubuntu and CentOS/RHEL
-    error = function(e) c("ubuntu", "centos", "redhat", "rhel")
+    # Fallback to default allow list shipped with the package
+    error = function(e) readLines("tools/nixlibs-allowlist.txt")
   )
   # allowlist should contain valid regular expressions (plain strings ok too)
   any(grepl(paste(allowlist, collapse = "|"), os))

r/tools/test-nixlibs.R

@@ -147,6 +147,13 @@ test_that("select_binary() with test program", {
 })
 
 test_that("check_allowlist", {
+  # because we read from a file when we can't get the allow list from github,
+  # we need to make sure we are in the same directory as we would be when building
+  # (which is one level higher, so we can find `tools/nixlibs.R`)
+  # TODO: it's possible that we don't want to run this whole file in that directory
+  # like we do currently.
+  withr::local_dir("..")
+
   tf <- tempfile()
   cat("tu$\n^cent\n^dar\n", file = tf)
   expect_true(check_allowlist("ubuntu", tf))