Извлечь номер из поля строки r

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