fork download
copy 
  1. x <- c('This is a simple text', 'this is a veryyyyyyyyyy long word', 'Replacethis andalsothis')
  2. gsub("\\b(\\w{10})\\B", "\\1 ", x)
  3. # => [1] "This is a simple text" "this is a veryyyyyyy yyy long word" "Replacethi s andalsothi s"
  4.  
  5. x <- c("this is a veryyyyyyy|yyy long word")
  6. gsub("(?<!\\S)(\\S{10})(?=\\S)", "\\1 ", x, perl=TRUE)
  7. # => [1] "this is a veryyyyyyy |yyy long word"
Success #stdin #stdout 0.23s 39020KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "This is a simple text"              "this is a veryyyyyyy yyy long word"
[3] "Replacethi s andalsothi s"         
[1] "this is a veryyyyyyy |yyy long word"
https://ideone.com/Ee5o2S
language:
R (R 3.5.2)
created:
4 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!