Split string based on condition in r

Question

I\'m working with a table that looks like this:

library(tidyverse)

id <- c(1, 1, 2, 2)
year <- rep(1990:1991, 2)
occ <- c("former farmer carpen