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