在R中删除字符串中的特定第一项

我有如下字符串：

'THE HOUSE'

'IN THE HOUSE'

'THE THE HOUSE'

而且，我只想删除“ THE”，只要它出现在字符串的第一个位置即可。

我知道如何使用以下方法删除“ THE”：

gsub("\\<THE\\>", "",  string)

而且我知道如何用以下方法抓住第一个单词：

"([A-Za-z]+)" or "([[:alpha:]]+)"or "(\\w+)"

但是不知道如何将两者结合起来最终导致：

'HOUSE'

'IN THE HOUSE'

'THE HOUSE'

干杯!