added numextractall

Author: eduardszoecs

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: esmisc
 Type: Package
 Title: Misc Functions of Eduard Szöcs
-Version: 0.0.3.9001
+Version: 0.0.3.9002
 Date: 2017-01-10
 Authors@R: c(person("Eduard", "Szöcs", role = c("aut", "cre"),
     email = "[email protected]"))

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(geomean)
+export(numextractall)
 export(read_regnie)
 export(theme_edi)
 import(ggplot2)

NEWS

@@ -4,7 +4,8 @@ esmisc 0.0.4
 
 NEW FEATURES
 
-* added function for geometric mean
+* added geomean() for geometric mean
+* added numextractall() to extract numeric values from a string
 
 MINOR IMPROVEMENTS
 

R/numextractall.R

@@ -0,0 +1,17 @@
+#' Extract numbers from string
+#' 
+#' Extract numbers from string
+#'
+#' @param x string
+#' @return numeric vector
+#' @references \url{ http://stackoverflow.com/questions/19252663/extracting-decimal-numbers-from-a-string}
+#' @export
+#' @examples 
+#' numextractall('1 2 3')
+#' numextractall('1,2,3')
+#' numextractall('1;2,3 4')
+#' numextractall('1;2,3 4,46')
+numextractall <- function(x) { 
+  as.numeric(unlist(regmatches(x, gregexpr("[[:digit:]]+\\.*[[:digit:]]*", x)), 
+                    use.names = FALSE))
+} 

man/numextractall.Rd

@@ -0,0 +1,10 @@
+context("numextractall")
+
+
+test_that('numextractall works', {
+  expect_equal(numextractall('1 2 3'), c(1, 2, 3))
+  expect_equal(numextractall('1,2,3'), c(1, 2, 3))
+  expect_equal(numextractall('1;2,3 4'), c(1, 2, 3, 4))
+  expect_equal(numextractall('1;2,3 4,46'), c(1, 2, 3, 4, 46))
+})
+