How to subtract a number from string elements in R?

I have a long string, the part is

x <- "Text1 q10_1 text2 q17 text3 q22_5 ..."

How to subtract 1 from each number after "q" letter to obtain

y <- "Text1 q9_1 text2 q16 text3 q21_5 ..."

I can extract all my numbers from x:

numbers <- stringr::str_extract_all(x, "(?<=q)\\d+")
numbers <- as.integer(numbers[[1]]) - 1

But how to update x with this new numbers?

The next is not working

stringr::str_replace_all(x, "(?<=q)\\d+", as.character(numbers))

>Solution :

I learned today that stringr::str_replace_all will take a function:

stringr::str_replace_all(
  x, 
  "(?<=q)\\d+", 
  \(x) as.character(as.integer(x) - 1)
)