input <- "this is my 'example'"
change <- "test"
stringr::str_replace(input, "'[^']*'", paste0("'", change, "'"))
gsub("'[^']*'", paste0("'", change, "'"), input)
aW5wdXQgPC0gInRoaXMgaXMgbXkgJ2V4YW1wbGUnIgpjaGFuZ2UgPC0gInRlc3QiCnN0cmluZ3I6OnN0cl9yZXBsYWNlKGlucHV0LCAiJ1teJ10qJyIsIHBhc3RlMCgiJyIsIGNoYW5nZSwgIiciKSkKZ3N1YigiJ1teJ10qJyIsIHBhc3RlMCgiJyIsIGNoYW5nZSwgIiciKSwgaW5wdXQp