tweak compute_name() to recognize snapshot files

NEWS.md

@@ -1,5 +1,7 @@
 # usethis (development version)
 
+* `use_test()` and `use_r()` now work when you are in `tests/testthat/_snaps/{foo}.md` (@olivroy, #1988).
+
 * The URLs baked into the badge generated by `use_coverage(type = "codecov")`
   no longer specify a branch (#2008).
 

R/r.R

@@ -116,7 +116,7 @@ compute_active_name <- function(path, ext, error_call = caller_env()) {
   path <- proj_path_prep(path_expand_r(path))
 
   dir <- path_dir(proj_rel_path(path))
-  if (!dir %in% c("R", "src", "tests/testthat")) {
+  if (!dir %in% c("R", "src", "tests/testthat", "tests/testthat/_snaps")) {
     cli::cli_abort("Open file must be a code or test file.", call = error_call)
   }
 

tests/testthat/test-r.R

@@ -60,6 +60,10 @@ test_that("compute_active_name() standardises name", {
     "bar.R"
   )
 
+  expect_equal(
+    compute_active_name(path(dir, "tests/testthat/_snaps/bar.md"), "R"),
+    "bar.R"
+  )
   # https://github.com/r-lib/usethis/issues/1690
   expect_equal(
     compute_active_name(path(dir, "R/data.frame.R"), "R"),