Замените A для B и B для A в строке

Я хочу заменить все A для B и B для A в строке в R.

Мой вход

x = "ABCDBBABDC"

и мой результат должен быть,

y = "BACDAABADC"

Как я могу сделать это в одной строке?

Я попробовал sub но я не могу делать несколько замещений.