将逗号分隔的字符串作为列表传递

假设我有一个字符串，例如"x = 1, y = 'cat', z = NULL"。我想获取代码创建的列表list(x = 1, z = 'cat', z = NULL)。这是我的第一次尝试，我知道这是horrible:

parse_text <- function(x) parse(text = x)[[1]]
strsplit2 <- function(x, ...) strsplit(x, ...)[[1]] 
trim_whitespace <- function (x) gsub("^\\s+|\\s+$", "", x)

# take 1

x <- "nk = 1, ncross = 1, pmethod = 'backward'"
x <- strsplit2(x, ",")
xs <- lapply(x, strsplit2, "=")
keys <- lapply(xs, function(x) trim_whitespace(x[1]))
vals <- lapply(xs, function(x) parse_text(x[2]))

setNames(vals, keys)

这就是我想象的更规范的方法：

# take 2

x <- "nk = 1, ncross = 1, pmethod = 'backward'"
x <- strsplit2(x, ",")
xs <- lapply(x, parse_text)

do.call(list, xs)

但这会丢失列表的名称。非常感谢任何帮助！干杯

您可以首先创建一个包含要执行的表达式的字符串（即list('your string')， 在这种情况下"list( nk = 1, ncross = 1, pmethod = 'backward' )") 具有函数paste to add list( and )，然后解析表达式parse函数并最终评估它eval功能：

x <- "nk = 1, ncross = 1, pmethod = 'backward'" #your string
eval(parse(text=paste('list(',x,')'))) #create and returns the desired list
$nk
[1] 1

$ncross
[1] 1

$pmethod
[1] "backward"

如图所示，这将返回正确的命名列表。

我希望这能帮到您。