fork download
copy 
  1. library(stringr)
  2. df <- data.frame(ID = c("A1", "A2", "A3"),
  3.             Strings = c("INGÉNIEUR AGRO. (+ DEA pédologie + IAE). 27 ans whatever whatever.",
  4.                         "ARCHITECTE DPLG 29 ans. 6 ans d’exp. prof, blablablabla",
  5.                         "PROJETEUR-COMPOSITEUR- ARCHITECTURE 32 ans."))
  6.  
  7. df$Job <- str_extract(df$Strings, '^[\\p{L}\\s-]*\\p{L}')
  8. df$Job
Success #stdin #stdout 0.34s 41684KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "INGÉNIEUR AGRO"                      "ARCHITECTE DPLG"                    
[3] "PROJETEUR-COMPOSITEUR- ARCHITECTURE"
https://ideone.com/TF26M7
language:
R (R 3.5.2)
created:
3 years ago
visibility:
secret

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!