fork download 
  1. Value <- c(" 25 \n", "  32.12 .  (05-", "33.90 ,\n", "46.70 ,\n", " () 26.60 ", 
  2.            " 27.2  ", "  23.24 .  (12-", "36.52 ,\n", " 27.1814404432133\n\n[", 
  3.            "  29.73 .  (22-", " 31.8058003525076\n\n[", "35.40 ,\n", "  38.44 .\n", 
  4.            "46.14 ,\n", " 29.26\n\n[", "  25.44 .\n")
  5. df <- data.frame(Value) 
  6. df$Value <- sub(".*?(\\d+(?:\\.\\d+)?).*", "\\1", df$Value)
  7. df
Success #stdin #stdout 0.16s 176448KB
comments (?)
stdin 
Standard input is empty
stdout 
              Value
1                25
2             32.12
3             33.90
4             46.70
5             26.60
6              27.2
7             23.24
8             36.52
9  27.1814404432133
10            29.73
11 31.8058003525076
12            35.40
13            38.44
14            46.14
15            29.26
16            25.44
https://ideone.com/8DakIR
language:
R (R 3.5.2)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!