R generate points with condition using runifpoint function

Question

I am trying to generate randomly distributed points in a rectangle.

To create 50 random points in a rectangle, I used

i=50
  pp<-runifpoint(i, win=o