From c81f8bbdffebd4886ddf70b9ca0f61a1cfa8237b Mon Sep 17 00:00:00 2001
From: Michael Chirico <chiricom@google.com>
Date: Mon, 8 Jul 2024 14:28:34 -0700
Subject: [PATCH] Note that R files are about to be loaded in cc() (#6043)

* Update cc.R

* Also cat # files to load & remove extra whitespace
---
 .dev/cc.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/.dev/cc.R b/.dev/cc.R
index 737b232b98..3ce9d24556 100644
--- a/.dev/cc.R
+++ b/.dev/cc.R
@@ -23,9 +23,11 @@
 # test and step between R and C
 
 sourceDir = function(path=getwd(), trace = TRUE, ...) {
+  r_files = list.files(path, pattern = "\\.[RrSsQq]$")
+  if (trace) cat("Loading", length(r_files), "R files:")
   # copied verbatim from example(source) in base R
-  for (nm in list.files(path, pattern = "\\.[RrSsQq]$")) {
-    if(trace) cat(nm," ")
+  for (nm in r_files) {
+    if(trace) cat(" ", nm, sep="")
       source(file.path(path, nm), ...)
   }
   if(trace) cat("\n")