fix(build): build packages requiring newer R on compatible minors (#216)

local/tests/test-newer-r-helpers.R

@@ -0,0 +1,81 @@
+source(file.path("..", "newer-r-helpers.R"))
+
+test_that("R constraints respect patch versions, bounds, and missing fields", {
+  expect_true(r_requirement_satisfied(NA_character_, "4.4.3"))
+  expect_true(r_requirement_satisfied(
+    "Matrix (>= 1.4-0), R (>= 4.5.0)",
+    "4.5.3"
+  ))
+  expect_false(r_requirement_satisfied("R (>= 4.5.0)", "4.4.3"))
+  expect_false(r_requirement_satisfied("R (>= 4.5.4)", "4.5.3"))
+  expect_true(r_requirement_satisfied("R (>= 4.5), R (< 4.6)", "4.5.3"))
+  expect_false(r_requirement_satisfied("R (>= 4.5), R (< 4.6)", "4.6.0"))
+  expect_true(r_requirement_satisfied("R (== 4.5.3)", "4.5.3"))
+  expect_true(r_requirement_satisfied("R (> 4.5.2), R (<= 4.5.3)", "4.5.3"))
+  expect_true(r_requirement_satisfied("R, Rcpp (>= 1.0)", "4.4.3"))
+  expect_error(r_requirement_satisfied("R (~ 4.5)", "4.5.3"), "Cannot parse")
+})
+
+fixture <- function() {
+  data.frame(
+    Package = c(
+      "arules",
+      "arulesSequences",
+      "indirect",
+      "optional",
+      "ordinary",
+      "future",
+      "blocked"
+    ),
+    Version = rep("1.0", 7L),
+    Depends = c(
+      "R (>= 4.5.0)",
+      "arules",
+      NA,
+      NA,
+      "R (>= 4.0)",
+      "R (>= 4.7)",
+      NA
+    ),
+    Imports = c(NA, NA, "arulesSequences", NA, NA, NA, "arules, future"),
+    LinkingTo = NA_character_,
+    Suggests = c(NA, NA, NA, "arules", NA, NA, NA)
+  )
+}
+
+test_that("every compatible newer minor includes required dependents only", {
+  db <- fixture()
+  for (target in c("4.5.3", "4.6.0")) {
+    expect_identical(
+      newer_r_candidates(db, "4.4.3", target)$Package,
+      c("arules", "arulesSequences", "indirect")
+    )
+  }
+  expect_equal(nrow(newer_r_candidates(db, "4.4.3", "4.4.3")), 0L)
+  expect_equal(nrow(newer_r_candidates(db, "4.5.3", "4.4.3")), 0L)
+  expect_equal(nrow(newer_r_candidates(db, "4.5.3", "4.6.0")), 0L)
+})
+
+test_that("LinkingTo, dependency cycles, Windows and empty metadata are handled", {
+  db <- fixture()
+  db$LinkingTo[5L] <- "arules"
+  db$Imports[1L] <- "ordinary"
+  db$OS_type <- c(NA, "windows", rep(NA_character_, 5L))
+  expect_identical(
+    newer_r_candidates(db, "4.4.3", "4.6.0")$Package,
+    c("arules", "indirect", "ordinary")
+  )
+  expect_equal(nrow(newer_r_candidates(db[FALSE, ], "4.4.3", "4.6.0")), 0L)
+})
+
+test_that("R-devel Recommended copies cannot block ordinary CRAN dependencies", {
+  db <- fixture()
+  db$Path <- NA_character_
+  future_copy <- db[1L, ]
+  future_copy$Depends <- "R (>= 4.7)"
+  future_copy$Path <- "4.7.0/Recommended"
+  expect_identical(
+    newer_r_candidates(rbind(future_copy, db), "4.4.3", "4.6.1")$Package,
+    c("arules", "arulesSequences", "indirect")
+  )
+})