fork(4) download 
  1. x <- "I like_to see_how_too but_it_seems to_be_impossible"
  2. strsplit(x, "^[^_]*(?:_[^_]*)\\K_", perl=TRUE)
  3. strsplit(x,  "^[^_]*(?:_[^_]*){1}\\K_", perl=TRUE)
  4. strsplit(x,  "^[^_]*(?:_[^_]*){0}\\K_", perl=TRUE)
  5. strsplit(x,  "\\A[^_]*(?:_[^_]*){0}\\K_", perl=TRUE)
Success #stdin #stdout 0.3s 22832KB
comments (?)
stdin 
Standard input is empty
stdout 
[[1]]
[1] "I like_to see" "how_too but"   "it_seems to"   "be_impossible"

[[1]]
[1] "I like_to see" "how_too but"   "it_seems to"   "be_impossible"

[[1]]
[1] "I like"     "to see"     "how"        "too but"    "it"        
[6] "seems to"   "be"         "impossible"

[[1]]
[1] "I like"     "to see"     "how"        "too but"    "it"        
[6] "seems to"   "be"         "impossible"
https://ideone.com/lfpKCL
language:
R (R 3.5.2)
created:
9 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!