Mrc 5429 - warn on "..." specified for null driver in hipercow_init

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: hipercow
 Title: High Performance Computing
-Version: 1.0.27
+Version: 1.0.29
 Authors@R: c(person("Rich", "FitzJohn", role = c("aut", "cre"),
                     email = "[email protected]"),
              person("Wes", "Hinsley", role = "aut"),

R/root.R

@@ -24,6 +24,16 @@
 ##' path <- withr::local_tempfile()
 ##' hipercow_init(path)
 hipercow_init <- function(root = ".", driver = NULL, ...) {
+  if ((is.null(driver)) && (length(list(...)) > 0)) {
+    args <- list(...)
+    cli::cli_alert_warning(
+      "driver was not specified, but extra args were detected: ")
+    ul <- cli::cli_ul()
+    for (arg in names(args)) {
+      cli::cli_li("{arg} = {args[[arg]]}")
+    }
+    cli::cli_end(ul)
+  }
   abs_path <- fs::path_abs(root)
   norm_path <- fs::path_norm(root)
   not_same_path <- (abs_path != norm_path)

drivers/windows/DESCRIPTION

@@ -1,6 +1,6 @@
 Package: hipercow.windows
 Title: DIDE HPC Support for Windows
-Version: 1.0.27
+Version: 1.0.29
 Authors@R: c(person("Rich", "FitzJohn", role = c("aut", "cre"),
                     email = "[email protected]"),
              person("Wes", "Hinsley", role = "aut"),

tests/testthat/test-root.R

@@ -138,3 +138,16 @@ test_that("Report working directory if helpful", {
   expect_match(msg, "Initialised hipercow at '.+'\n")
 
 })
+
+
+test_that("Extraneous args are warned about", {
+  path <- withr::local_tempdir()
+  withr::with_dir(path,
+    res <- testthat::evaluate_promise(
+      hipercow_init(potato = TRUE, turnip = 42))
+  )
+  expect_length(res$messages, 5)
+  expect_match(res$messages[1], "driver was not specified, but")
+  expect_match(res$messages[2], "potato = TRUE")
+  expect_match(res$messages[3], "turnip = 42")
+})