fork(1) download
copy 
  1. sample <- c("commercial funding", "global b2b banking", "how to finance commercial ale estate", "opening a commercial account","international currency account","miami imports banking","hsbc supply chain financing","international business expansion","grow business in Us banking", "commercial trade Asia Pacific","business line of credits hsbc","Britain commercial banking","fx settlement hsbc", "W Hotels")
  2. sample <- sample[!grepl("\\b[[:alnum:]]\\b",sample)]
  3. sample <- gsub("\\b([[:alnum:]]{2,3})\\b", "+\\1+", sample)
  4. data <- data.frame(sample)
  5. data
Success #stdin #stdout 0.17s 176448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
                                       sample
1                          commercial funding
2                        global +b2b+ banking
3  +how+ +to+ finance commercial +ale+ estate
4              international currency account
5                       miami imports banking
6                 hsbc supply chain financing
7            international business expansion
8             grow business +in+ +Us+ banking
9               commercial trade Asia Pacific
10            business line +of+ credits hsbc
11                 Britain commercial banking
12                       +fx+ settlement hsbc
https://ideone.com/to3CkV
language:
R (R 3.5.2)
created:
7 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!