fork download
  1. x="stríng"
  2. gr <- gregexpr("í", x)
  3. mat <- regmatches(x, gr)
  4. regmatches(x, gr) <- lapply(mat, toupper)
  5. x
  6. # => [1] "strÍng"
  7.  
Success #stdin #stdout 0.25s 38836KB
stdin
Standard input is empty
stdout
[1] "strÍng"