Merge branch 'main' into positron-git

NEWS.md

@@ -2,6 +2,8 @@
 
 * `use_git()` no longer asks if you want to restart RStudio when using Positron.
 
+* `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,8 +116,8 @@ 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")) {
-    cli::cli_abort("Open file must be a code or test file.", call = error_call)
+  if (!dir %in% c("R", "src", "tests/testthat", "tests/testthat/_snaps")) {
+    cli::cli_abort("Open file must be code, test, or snapshot.", call = error_call)
   }
 
   file <- path_file(path)

tests/testthat/_snaps/r.md

@@ -50,5 +50,5 @@
       compute_active_name("foo/bar.R")
     Condition
       Error:
-      ! Open file must be a code or test file.
+      ! Open file must be code, test, or snapshot.
 

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"),