Use rlang::check_exclusive() (#170)

DESCRIPTION

@@ -26,7 +26,7 @@ Depends:
     R (>= 4.0)
 Imports:
     htmlwidgets (>= 0.3.2),
-    rlang (>= 0.4.9),
+    rlang (>= 1.1.0),
     vctrs
 Suggests:
     htmltools,

R/profvis.R

@@ -102,15 +102,11 @@ profvis <- function(expr = NULL,
                     torture = 0,
                     simplify = TRUE,
                     rerun = FALSE) {
+  check_exclusive(expr, prof_input)
   split <- match.arg(split)
   c(expr_q, env) %<-% enquo0_list(expr)
 
-  if (is.null(prof_input) && is.null(expr_q)) {
-    stop("profvis must be called with `expr` or `prof_input` ")
-  }
-  if (!is.null(prof_input) && (!is.null(expr_q) && !is.null(prof_output))) {
-    stop("The `prof_input` argument cannot be used with `expr` or `prof_output`.")
-  }
+
   if (interval < 0.005) {
     message("Intervals smaller than ~5ms will probably not result in accurate timings.")
   }

tests/testthat/_snaps/profvis.md

@@ -0,0 +1,8 @@
+# expr and prof_input are mutually exclusive
+
+    Code
+      profvis(expr = f(), prof_input = "foo.R")
+    Condition
+      Error in `profvis()`:
+      ! Exactly one of `expr` or `prof_input` must be supplied.
+

tests/testthat/test-profvis.R

@@ -24,3 +24,7 @@ test_that("defaults to elapsed timing", {
   out <- repro_profvis(f(), rerun = "Sys.sleep")
   expect_equal(profile_mode(out), "Sys.sleep f")
 })
+
+test_that("expr and prof_input are mutually exclusive", {
+  expect_snapshot(profvis(expr = f(), prof_input = "foo.R"), error = TRUE)
+})