R coding for random value with contraint

I want to know R code for generating 1000 random values for x and y between 1 to 7 such that x<=y and all the numbers are identically distributed.

R coding for random value with contraint