diff --git a/DESCRIPTION b/DESCRIPTION index 26fe812d..1ddd209d 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: orderly2 Title: Orderly Next Generation -Version: 1.99.32 +Version: 1.99.33 Authors@R: c(person("Rich", "FitzJohn", role = c("aut", "cre"), email = "rich.fitzjohn@gmail.com"), person("Robert", "Ashton", role = "aut"), diff --git a/R/util_assert.R b/R/util_assert.R index a32c6f14..8d5c2f98 100644 --- a/R/util_assert.R +++ b/R/util_assert.R @@ -198,7 +198,7 @@ assert_directory_does_not_exist <- function(x, name = "Directory", arg = NULL, match_value <- function(x, choices, name = deparse(substitute(x)), arg = name, call = NULL) { - assert_scalar_character(x, call = call, arg = arg) + assert_scalar_character(x, name = name, arg = arg, call = call) if (!(x %in% choices)) { cli::cli_abort( c("'{name}' must be one of {collapseq(choices)}",