Only remove .R extensions from old/new.

R/rename-files.R

@@ -12,7 +12,7 @@
 #' This is a potentially dangerous operation, so you must be using Git in
 #' order to use this function.
 #'
-#' @param old,new Old and new file names (with or without extensions).
+#' @param old,new Old and new file names (with or without `.R` extensions).
 #' @export
 rename_files <- function(old, new) {
   check_uses_git()
@@ -23,8 +23,8 @@ rename_files <- function(old, new) {
     untracked = TRUE
   )
 
-  old <- path_ext_remove(old)
-  new <- path_ext_remove(new)
+  old <- sub("\\.R$", "", old)
+  new <- sub("\\.R$", "", new)
 
   # R/ ------------------------------------------------------------------------
   r_old_path <- proj_path("R", old, ext = "R")

tests/testthat/test-rename-files.R

@@ -82,3 +82,13 @@ test_that("rename paths in test file", {
   lines <- read_utf8(proj_path("tests", "testthat", "test-bar.R"))
   expect_equal(lines, "test-bar.txt")
 })
+
+test_that("does not remove non-R dots in filename", {
+  create_local_package()
+  local_mocked_bindings(challenge_uncommitted_changes = \(...) invisible())
+  git_init()
+
+  file_create(proj_path("R/foo.bar.R"))
+  rename_files("foo.bar", "baz.qux")
+  expect_proj_file("R/baz.qux.R")
+})