Question

我正在寻找一种简单的方法来创建基于命名向量或列表的“平面”或压缩名称结构的嵌套列表

例如，输入c("a/b/c" = TRUE)的结果应为：

#> $a
#> $a$b
#> $a$b$c
#> [1] TRUE

我有一个解决方案，但是感觉很累：

library(magrittr)
nested_list <- function(input) {
  nms <- names(input)
  ret <- lapply(1:length(input), function(level) {
    value <- input[[level]]

    name <- nms[level] %>%
      strsplit("/") %>%
      unlist()
    name_vec <- NULL
    ret <- list()

    # Create nested list structure -----
    for (ii in name) {
      name_vec <- c(name_vec, ii)
      ret[[name_vec]] <- list()
    }

    # Assign leaf value -----
    ret[[name]] <- value

    ret
  })
  unlist(ret, recursive = FALSE)
}

示例运行

input <- c("a/b/c" = TRUE, "x/y/z" = FALSE)
nested_list(input)
#> $a
#> $a$b
#> $a$b$c
#> [1] TRUE
#> 
#> 
#> 
#> $x
#> $x$y
#> $x$y$z
#> [1] FALSE

input <- list("a/b/c" = TRUE, "x/y/z" = list(p = 1, q = 2))
nested_list(input)
#> $a
#> $a$b
#> $a$b$c
#> [1] TRUE
#> 
#> 
#> 
#> $x
#> $x$y
#> $x$y$z
#> $x$y$z$p
#> [1] 1
#> 
#> $x$y$z$q
#> [1] 2
Created on 2018-10-18 by the [reprex package][1] (v0.2.0).

免责声明

我确实四处张望（例如question 1，question 2），但是我并没有完全找到想要的东西。

Answer 1

我写了一个类似的递归函数

recur.list <- function(x, y) {
  if(length(x) == 1)
    setNames(list(y), x[1])
  else
    setNames(list(recur.list(x[-1], y)), x[1])
}

listed_list.dirs <- function(input) {
   vec <- strsplit(names(input), "/")
   mapply(recur.list, vec, input)
}

基本上recur.list是一个递归函数，它基于“ /”的数量创建一个命名嵌套列表，而listed_list.dirs在“ /”上拆分名称并为每个字符创建一个单独的字符向量input。

input <- c("a/b/c" = TRUE, "x/y/z" = FALSE)
listed_list.dirs(input)
#$a
#$a$b
#$a$b$c
#[1] TRUE

#$x
#$x$y
#$x$y$z
#[1] FALSE

input <- list("a/b/c" = TRUE, "x/y/z" = list(p = 1, q = 2))
listed_list.dirs(input)
#$a
#$a$b
#$a$b$c
#[1] TRUE

#$x
#$x$y
#$x$y$z
#$x$y$z$p
#[1] 1

#$x$y$z$q
#[1] 2

基于命名向量或列表的平面/压缩名称结构的嵌套列表

免责声明

1 个答案: