How do I remove partially duplicated information within a variable, but duplicated between fields

Question

House_Number<-c("11", "14 Jas", "24 Baker Street", "38 Home Close", "Flat 6, 85