Not sure about others, but for me it's a little difficult to follow what's your expected result. And that's more so as you are using sample without set.seed.
Let me give you 3 examples of rep, and you can probably figure out what you want from them.
> rep(x=c(10, 20, 30), times=4)
[1] 10 20 30 10 20 30 10 20 30 10 20 30
> rep(x=c(10, 20, 30), each=5)
[1] 10 10 10 10 10 20 20 20 20 20 30 30 30 30 30
> rep(x=c(10, 20, 30), times=2, each=3)
[1] 10 10 10 20 20 20 30 30 30 10 10 10 20 20 20 30 30 30
You can also take a look at ?rep, ?seq, ?sequence etc. There are plenty of variations.
Or may be you want replicate?
> set.seed(seed=82733)
> replicate(n=4, expr=sample(x=1:30, size=6, replace=FALSE))
[,1] [,2] [,3] [,4]
[1,] 30 2 4 4
[2,] 10 18 21 28
[3,] 15 27 20 25
[4,] 9 20 5 27
[5,] 8 25 27 26
[6,] 4 19 22 6