# NOT RUN {
line_in_text <- "foo bar 10.303,70 foo bar 1.211.000,55 foo bar"
words <- unlist(strsplit(line_in_text, split = " "))
print(na.omit(sapply(words, str2num)), digits = 9)
print(str2num(words[7]), digits = 9)
# }
Run the code above in your browser using DataLab