utils: prefer shlib when looking through unixodbc installations

Author: detule

R/utils.R

@@ -375,11 +375,18 @@ locate_install_unixodbc <- function() {
     "/opt/R/x86_64/lib"
   )
 
-  list.files(
-    common_dirs,
-    pattern = libodbcinst_filename(),
-    full.names = TRUE
-  )
+  file_names <- libodbcinst_filename()
+  for (file_name in file_names) {
+    paths <- list.files(
+       common_dirs,
+       pattern = file_name,
+       full.names = TRUE
+    )
+    if (length(paths)) {
+      return(paths)
+    }
+  }
+  return(character())
 }
 
 system_safely <- function(x) {
@@ -403,9 +410,9 @@ system_safely <- function(x) {
 # list.files( ..., pattern = ... ).
 libodbcinst_filename <- function() {
   if (is_macos()) {
-    "libodbcinst.dylib|libodbcinst.a"
+    return(c("libodbcinst.dylib", "libodbcinst.a"))
   } else {
-    "libodbcinst.so|libodbcinst.a"
+    return(c("libodbcinst.so", "libodbcinst.a"))
   }
 }
 

tests/testthat/test-utils.R

@@ -214,6 +214,59 @@ test_that("locate_install_unixodbc() returns reasonable values", {
   expect_true(grepl("(\\.dylib|\\.a)$", res[1]))
 })
 
+# https://github.com/r-dbi/odbc/issues/919
+test_that("locate_install_unixodbc() prefers shlib", {
+  # odbc_config / pkg-config cflags point to nonexistent files on CRAN (#903)
+  skip_on_cran()
+  {
+    local_mocked_bindings(
+      is_macos = function() {TRUE}
+    )
+    local_mocked_bindings(
+      list.files = function (path = ".", pattern = NULL, all.files = FALSE, full.names = FALSE, ...) {
+        # Mimic being able to find any pattern passed as argument
+        return(pattern)
+      },
+      .package = "base"
+    )
+    res <- locate_install_unixodbc()
+    expect_equal(length(res), 1)
+    expect_true(grepl("(\\.dylib)$", res[1]))
+  }
+  {
+    local_mocked_bindings(
+      is_macos = function() {TRUE}
+    )
+    local_mocked_bindings(
+      list.files = function (path = ".", pattern = NULL, all.files = FALSE, full.names = FALSE, ...) {
+        # Mimic being able to find .a only
+        if(pattern == "libodbcinst.a") return(pattern)
+        return(character())
+      },
+      .package = "base"
+    )
+    res <- locate_install_unixodbc()
+    expect_equal(length(res), 1)
+    expect_true(grepl("(\\.a)$", res[1]))
+  }
+  {
+    local_mocked_bindings(
+      is_macos = function() {TRUE}
+    )
+    local_mocked_bindings(
+      list.files = function (path = ".", pattern = NULL, all.files = FALSE, full.names = FALSE, ...) {
+        # Mimic being able to find shlib only
+        if(pattern == "libodbcinst.dylib") return(pattern)
+        return(character())
+      },
+      .package = "base"
+    )
+    res <- locate_install_unixodbc()
+    expect_equal(length(res), 1)
+    expect_true(grepl("(\\.dylib)$", res[1]))
+  }
+})
+
 test_that("databricks() errors informatively when spark ini isn't writeable", {
   local_mocked_bindings(is_writeable = function(path) {FALSE})
   expect_snapshot(