non-numeric argument to binary operator - getting numerical input from user

Question

i was trying to execute a simple addition code,

x<-readline()
x<-as.integer(x)
y<-readline()
y<-as.integer(y)
sum<-x+y
print(sum)