fork download 
  1. sample_text <-
  2.   c("811310 Commercial and Industrial Machinery and"
  3.     , "7692 Welding Repair"                           
  4.     , "Equipment (except Automotive and" # non-digit pattern (1/2)           
  5.     , "Electronic) Repair and Maintenance" # non-digit pattern (2/2)         
  6.     , "811310 Commercial and Industrial Machinery and"
  7.     , "7694 Armature Rewinding Shops"                 
  8.     , "Equipment (except Automotive and" # non-digit pattern (1/2)           
  9.     , "Electronic) Repair and Maintenance" # non-digit pattern (2/2)    
  10.     , "811310 Commercial and Industrial Machinery and"
  11.     , "7699 Repair Services, Nec"                     
  12.     , "Equipment (except Automotive and" # non-digit pattern (1/2)         
  13.     , "Electronic) Repair and Maintenance" # non-digit pattern (2/2)        
  14.     , "811411 Home and Garden Equipment Repair and"   
  15.     , "7699 Repair Services, Nec"                     
  16.     , "Maintenance" # non-digit pattern (1/1)                               
  17.     , "811412 Appliance Repair and Maintenance"       
  18.     , "7623 Refrigeration Service and Repair"         
  19.     , "811412 Appliance Repair and Maintenance"       
  20.     , "7629 Electrical Repair Shops"                  
  21.     , "811412 Appliance Repair and Maintenance"       
  22.     , "7699 Repair Services, Nec")
  23.  
  24. x <- c()
  25. for(i in sample_text){
  26.   if(grepl("^\\D*$",i)) {
  27.     x[length(x)-1] <- paste(x[length(x)-1], i)
  28.   } else {
  29.     x <- c(x, i) #append
  30.   }
  31. }
  32. x
Success #stdin #stdout 0.19s 183680KB
comments (?)
stdin 
Standard input is empty
stdout 
 [1] "811310 Commercial and Industrial Machinery and Equipment (except Automotive and Electronic) Repair and Maintenance"
 [2] "7692 Welding Repair"                                                                                               
 [3] "811310 Commercial and Industrial Machinery and Equipment (except Automotive and Electronic) Repair and Maintenance"
 [4] "7694 Armature Rewinding Shops"                                                                                     
 [5] "811310 Commercial and Industrial Machinery and Equipment (except Automotive and Electronic) Repair and Maintenance"
 [6] "7699 Repair Services, Nec"                                                                                         
 [7] "811411 Home and Garden Equipment Repair and Maintenance"                                                           
 [8] "7699 Repair Services, Nec"                                                                                         
 [9] "811412 Appliance Repair and Maintenance"                                                                           
[10] "7623 Refrigeration Service and Repair"                                                                             
[11] "811412 Appliance Repair and Maintenance"                                                                           
[12] "7629 Electrical Repair Shops"                                                                                      
[13] "811412 Appliance Repair and Maintenance"                                                                           
[14] "7699 Repair Services, Nec"
https://ideone.com/qZxeIN
language:
R (R 3.5.2)
created:
7 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!