我有一个收件箱，其中一列包含值范围以及单个值，如下所示:
x <- c("a","b")
y <- c("1:3,7","9")
dat <- data.frame("char"=x,"range"=y)
> dat
char range
1 a 1:3,7
2 b 9
我需要做的是转换range列，以便显示范围中包含的所有值:
> dat2
char range
1 a 1,2,3,7
2 b 9
得益于this very similar question:中提供的解决方案，我取得了进展
v1 <- c("1:3")
unlist(lapply(v1, function(x) eval(parse(text=x))))
[1] 1 2 3 9
但这只能让我走到目前为止，因为当然，如果我传递一个也有单一值的载体，就像我原来的range列一样，它会抛出一个错误:
v1 <- c("1:3,7","9")
unlist(lapply(v1, function(x) eval(parse(text=x))))
Error in parse(text = x) : <text>:1:4: unexpected ','
1: 1:3,
^
此外，我无法自动将此解决方案应用于收件箱列，因为它返回单独的数字值，并且我需要一个字符串.感谢任何帮助.
EDIT
感谢大家非常有用的 comments ！