Extraire le numéro du champ de chaîne R

df$clean_column<-gsub("[^0-9]", "", df$dirty_column)
Bored Barracuda