How do I assign variable value for name in named list?

Question

I want to assign char value from variable to use name in named list.

n <- "EDF04"
l1 <- list(n = c(1,2,3))
Result:
$c
[1] 1 2 3

Expected Result:
$EDF04
[1] 1 2 3

names(l1) <- n

Allan Cameron
– Allan Cameron

2020-07-31 15:52:44 +00:00
Commented Jul 31, 2020 at 15:52 — Allan Cameron
– Allan Cameron, Commented Jul 31, 2020 at 15:52

Allan Cameron · Accepted Answer · 2020-07-31 16:23:22Z

0

Are you just looking for names<- ?

n  <- "EDF04"
l1 <- list(n = c(1,2,3))
names(l1) <- n
l1
#> $EDF04
#> [1] 1 2 3

or setNames?

setNames(list(c(1,2,3)), n)
#> $EDF04
#> [1] 1 2 3

Or are you wanting to do something fancier?

mylist <- function(...) {
  mc <- as.list(match.call())[-1]
  par_names <- names(mc)
  li_names <- sapply(par_names, function(i){
    if(nzchar(i)) {
      a_name <- if(exists(i, envir = parent.frame()))
        get(i, envir = parent.frame()) else i
        if(length(a_name) == 1 & class(a_name) == "character") return(a_name)
    } else return("")
  })
  setNames(list(...), li_names)
}

mylist(n = 1, z = 4, c(5, 6, 7)) 
#> $EDF04
#> [1] 1
#> 
#> $z
#> [1] 4
#>
#> [[3]]
#> [1] 5 6 7

^{Created on 2020-07-31 by the reprex package (v0.3.0)}

edited Jul 31, 2020 at 16:23

answered Jul 31, 2020 at 15:55

Allan Cameron

178k7 gold badges71 silver badges118 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How do I assign variable value for name in named list?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related