make.names() #47

r-lidar · May 13, 2024 · 0c94405 · 0c94405
1 parent 1e92b1a
commit 0c94405
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,7 @@
 
 - Fix: #48 segfault with `delete_points()` when 0 points left.
 - Enhance: #47 pipelines are named `list`.
+- Enhance: #47 the output `list` returned by `exec` is named and duplicated names are made unique with `make.names()`
 
 # lasR 0.5.3
 

diff --git a/R/processor.R b/R/processor.R
@@ -113,6 +113,7 @@ exec = function(pipeline, on, with = NULL, ...)
 
   if (!with$noread) ans <- read_as_common_r_object(ans)
   ans <- Filter(Negate(is.null), ans)
+  names(ans) <- make.names(names(ans), unique = TRUE)
 
   if (length(ans) == 0)
     return(NULL)