Replace string with empty string except certain word using R

Question

Good day, I want to gsub all string with " " except INDIVIDUAL/BUSINESS then mutate in a new column called business_type. I\'ve tried many methods but fail. Thanks