x="stríng"
gr <- gregexpr("í", x)
mat <- regmatches(x, gr)
regmatches
(x
, gr
) <- lapply
(mat
, toupper)x
# => [1] "strÍng"
 
				eD0ic3Ryw61uZyIKZ3IgPC0gZ3JlZ2V4cHIoIsOtIiwgeCkKbWF0IDwtIHJlZ21hdGNoZXMoeCwgZ3IpCnJlZ21hdGNoZXMoeCwgZ3IpIDwtIGxhcHBseShtYXQsIHRvdXBwZXIpCngKIyA9PiBbMV0gInN0csONbmciCg==