fix: handle multiple objects returned

vusaverse · Mar 22, 2024 · c56624b · c56624b
1 parent 310a2c1
commit c56624b
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/validate_proj.R b/R/validate_proj.R
@@ -75,6 +75,10 @@ validate_script_proj <- function(filepath = NULL, export_to_dataframe = FALSE) {
     ins <- any(grep("install.packages", readLines(filepath)))
 
     unused_objects <- check_unused_objects(filepath)
+
+    if (length(unused_objects > 1)) {
+      unused_objects <- paste0(unused_objects, collapse = " \n ")
+    }
 
     ## These should be used in a wrapper function, as they are project specific
     assert_naming <- any(grep("assert_naming", readLines(filepath)))