Solve algebric equation in R give equation = 1

Question

I\'m trying to solve this : ((2300+1900*1)+(x+2300+1900*1)*0.002)/(600-400) =1

Is there a way to do this with R?

ATTEMPT with error