Parsing a string in r programming

Question

I need to create a function in R that takes in a string:

f3("€1.220,36 €3.002,18")

and spits out:

1220.36 3002.18

Thanks.

Try `gsub(",", ".", gsub("[.€]", "", str1))# "1220.36 3002.18"` — akrun, Feb 14 '18 at 16:02
@akrun Thanks this worked except see my comment under your answer. — skatofia, Feb 14 '18 at 16:10
Possible duplicate of [R extract part of string](https://stackoverflow.com/questions/9721052/r-extract-part-of-string) — Nathan Werth, Feb 14 '18 at 16:15

akrun · Answer 1 · 2018-02-14T16:13:38.993

3

We can do this with two gsubs

gsub(",", ".", gsub("\x80|\\.", "", str1))
#[1] "1220.36 3002.18"

If we need to convert to numeric, wrap it with scan

scan(text=gsub(",", ".", gsub("\x80|\\.", "", str1)), what = numeric(), quiet = TRUE)
#[1] 1220.36 3002.18

str1 <- "€1.220,36 €3.002,18"

edited Feb 14 '18 at 16:13

answered Feb 14 '18 at 16:05

akrun

Thanks! This worked. Except, I have single quotes wrapping my result. How do I have the function remove those single quotes? – skatofia Feb 14 '18 at 16:09
@skatofia I didn't find any single quotes – akrun Feb 14 '18 at 16:10
Right now, I'm getting '1220.36 3002.18' instead of 1220.36 3002.18 in my output for my function – skatofia Feb 14 '18 at 16:11
2

@skatofia Do you want as two numeric values or a single string value? If it is the former, then `scan(text=output, what = numeric())` – akrun Feb 14 '18 at 16:12
The numeric worked except then there is a 0 at the end of the string, it gets removed when I don't want it to. Ex: f3("€4.112,86 €2,30") becomes: 4112.86 2.3 – skatofia Feb 14 '18 at 16:23
how do I get the 0 to appear at the end? – skatofia Feb 14 '18 at 16:23
@skatofia Then you need to keep it as string because when it is converted to numeric, it removes the last 0 – akrun Feb 14 '18 at 17:27
1

I came up with a solution just to see it's almost exactly what you wrote haha – catastrophic-failure Feb 14 '18 at 17:37

score 2 · Answer 2 · answered Feb 14 '18 at 16:10

2

Another option using the stringr library:

 library(stringr)
 x <- "€1.220,36 €3.002,18"
 str_replace_all(x, c("€" = "", "\\." = "", "\\," = "."))

 [1] "1220.36 3002.18"

answered Feb 14 '18 at 16:10

wtrs

2 Answers2