list0() needs to capture names

[jmbarbone]

list0 <- function (...) {
  mc <- match.call()
  out <- list()
  for (i in seq_len(...length())) {
    tryCatch(out <- append(out, ...elt(i)), error = function(e) {
      if (!identical(e$message, "argument is missing, with no default")) {
        e$call <- mc
        stop(e)
      }
    })
  }
  
  # TODO include this line
  names(out) <- names(mc)[seq_len(i)][-1]
  out
}

fuj::list0(1, 2, 3,)
#> [[1]]
#> [1] 1
#> 
#> [[2]]
#> [1] 2
#> 
#> [[3]]
#> [1] 3
fuj::list0(a = 1, 2, c = 3,)
#> [[1]]
#> [1] 1
#> 
#> [[2]]
#> [1] 2
#> 
#> [[3]]
#> [1] 3
list0(1, 2, 3,)
#> [[1]]
#> [1] 1
#> 
#> [[2]]
#> [1] 2
#> 
#> [[3]]
#> [1] 3
list0(a = 1, 2, c = 3,)
#> $a
#> [1] 1
#> 
#> [[2]]
#> [1] 2
#> 
#> $c
#> [1] 3

^{Created on 2023-05-11 with reprex v2.0.2}