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