Get list of numbers from range (s) of number
3 answers
We can split and c Map
, get numbers
do.call(Map, c(`:`, lapply(strsplit(df1$v1, '-'), as.numeric)))
#[[1]]
# [1] 35 36 37 38 39 40 41 42 43 44 45
#[[2]]
#[1] 43 44 45 46 47
If we need to find a sequence within a string
lapply(strsplit(df1$v1, "-"), function(x) Reduce(`:`, as.numeric(x)))
#[1]]
#[1] 35 36 37 38 39 40 41 42 43
#[[2]]
#[1] 45 46 47
Update
If we have multiple items in a line
df1 <- structure(list(v1 = c("35-43", "45-47", "30-42, 25-27")),
.Names = "v1", row.names = c(NA,
-3L), class = "data.frame")
lapply(strsplit(df1$v1, ", "), function(x) do.call(c,
lapply(strsplit(x, "-"), function(y) Reduce(`:`, as.numeric(y)))))
data
df1 <- structure(list(v1 = c("35-43", "45-47")), .Names = "v1", row.names = c(NA,
-2L), class = "data.frame")
+3
source to share
You can use eval(parse(...))
like this:
eval(parse(text = sub('-', ':', '35-40')))
#[1] 35 36 37 38 39 40
or
unlist(lapply(sub('-', ':', c('35-40', '45-47')), function(i) eval(parse(text = i))))
#[1] 35 36 37 38 39 40 45 46 47
EDIT
As per your last reign,
unlist(lapply(strsplit(x, ', '), function(i) {
ind <- sub('-', ':', i); unlist(lapply(ind, function(j) eval(parse(text = j))))
}))
#[1] 35 36 37 38 39 40 41 42 43 45 46 47
+2
source to share
we use substr to extract parts of a string to get the start and end of a numeric list. we are using as.numeric to convert extracted strings to numbers. we use colon to create a list of numbers. it will also work for multiple parts of the list
> input
[1] "35-40"
> instart=substr(input,1,2)
> instart
[1] "35"
> inend=substr(input,4,5)
> inend
[1] "40"
> newlist=as.numeric(instart):as.numeric(inend)
> newlist
[1] 35 36 37 38 39 40
+1
source to share