Substitua A por B e B por A em uma string

Eu quero substituir todosAé paraB'areiaBé paraAestá em uma corda em R.

Minha entrada é

x = "ABCDBBABDC"

e minha saída deve ser,

y = "BACDAABADC"

Como eu poderia fazer isso em uma linha?

eu tenteisub mas não posso fazer várias substituições.

questionAnswers(1)

yourAnswerToTheQuestion