Allow explicit import of selection helpers in methods (#77)

NEWS.md

@@ -1,5 +1,7 @@
 # plume (development version)
 
+* Fixed selection helpers not working when imported explicitly with `::` (#76).
+
 # plume 0.2.3
 
 * `$new(initials_given_name = TRUE)` no longer makes initials if names are written in a script that doesn't use letter cases (#73).

R/utils.R

@@ -119,7 +119,7 @@ expr_is_atomic <- function(expr) {
 }
 
 expr_is_selector <- function(expr) {
-  expr_is(expr, "^everyone")
+  expr_is(expr, "^(?:plume:::?)?everyone")
 }
 
 expr_type <- function(expr) {

tests/testthat/test-set-status.R

@@ -8,6 +8,11 @@ test_that("sets status to selected authors", {
     aut$get_plume()$corresponding
   }, rep(TRUE, 3))
 
+  expect_equal({
+    aut$set_corresponding_authors(plume::everyone())
+    aut$get_plume()$corresponding
+  }, rep(TRUE, 3))
+
   expect_equal({
     withr::local_options(lifecycle_verbosity = "quiet")
     aut$set_corresponding_authors(everyone_but(ric), .by = "given_name")