StrVal {DescTools}R Documentation

Extract All Numeric Values From a String


Extract all numeric values from a string using a regular expression and return a list of all found values. If there are several, the values can be either pasted and/or casted from characters to numeric values.


StrVal(x, paste = FALSE, as.numeric = FALSE, dec = getOption("OutDec"))



a character vector


should separatetly extracted numbers be pasted together? This can be useful to reverse a prior format action. Default is FALSE.


logical value, determining if the extracted values should be converted to a number or be returned as characters. Default is FALSE.


character string containing a single character. The preferred character to be used as the decimal point. Defaults getOption("OutDec").


If there are multiple numbers in the same string to paste and cast to numeric, pasting will be done first and after pasting the conversion will be performed. So if for example the numbers in x = "34 way 066" should be extracted StrVal(x, paste = TRUE, as.numeric = TRUE) will lead to 34066. This is a useful choice for converting formatted numbers having some kind of bigmark.


depending on the results the function will return either a character vector, in the case every element of x contained only one number, or a list of character vectors containing the found numbers.


Andri Signorell <>, Markus Naepflin <> provided an optimized regex

See Also

other string functions in DescTools-package, section String functions


# a simple vector with only one number per element
StrVal(x=c("week 1", "week 3", "week 4", "week 5"))

# several numbers per element, extract each part, do not paste and return characters
StrVal(x=c("This is 1. place: 45.2", "none", "12.1 but -2.7 follow, 10.2e23 "),
       paste = FALSE, as.numeric = FALSE)

# critical are numbers combined with signs, where we sequentially extract valid numbers
StrVal(x=c("78-23-99", "1e-15-34*789+9", "- 34values"),
       paste = FALSE, as.numeric = FALSE)

# a typical use case for this function is to reverse a previously
#   applied number format

x <- c(100000, 4564654632, -456463)
xf <- Format(x, big.mark="'")

StrVal(xf, paste = TRUE, as.numeric = TRUE)

StrVal(xf, paste = TRUE, as.numeric = FALSE)
StrVal(xf, paste = FALSE, as.numeric = TRUE)
StrVal(xf, paste = FALSE, as.numeric = FALSE)

# use an alternative decimal point
StrVal("8 452,12", dec=",")

[Package DescTools version 0.99.51 Index]