将列表取消嵌套到R中的字符串的通用方法

flatten_list <- function(lst) {
  result <- character()
  
  for (i in seq_along(lst)) {
    if (is.list(lst[[i]])) {
      result <- c(result, flatten_list(lst[[i]]))
    } else {
      result <- c(result, lst[[i]])
    }
  }
  
  return(result)
}

# 示例用法
nested_list <- list("a", list("b", list("c", "d")), "e")
flattened_list <- flatten_list(nested_list)
flattened_string <- paste(flattened_list, collapse = "")
print(flattened_string)