feat: Add R language test case and fixture for repository mapping

tests/basic/test_repomap.py

@@ -313,6 +313,7 @@ class TestRepoMapAllLanguages(unittest.TestCase):
             "commonlisp": ("lisp", "greet"),
             "pony": ("pony", "Greeter"),
             "properties": ("properties", "database.url"),
+            "r": ("r", "calculate"),
         }
 
         fixtures_dir = Path(__file__).parent.parent / "fixtures" / "languages"

tests/fixtures/languages/r/test.r

@@ -0,0 +1,17 @@
+# Simple R function for testing repository mapping
+calculate <- function(x, y) {
+  # This function performs a simple calculation
+  result <- x * y
+  return(result)
+}
+
+# Another function to test detection
+process_data <- function(data) {
+  # Process some data
+  return(data * 2)
+}
+
+# Example usage
+sample_data <- c(1, 2, 3, 4, 5)
+result <- calculate(10, 5)
+processed <- process_data(sample_data)