trtAssign fails when strata has count of one about simstudy HOT 6 CLOSED

Ok, the issue is within .stratSamp it returns a vector of atleast length(ncat) even if that is more than the number of rows to assign.

from simstudy.

Not sure why the second does not cause this issue...

from simstudy.

Uh... wat?

from simstudy.

oh boy it gets weirder:

from simstudy.

When nrow is 1 - then the floor argument is 0, and that where things go awry. If nrow == 1, then basically doesn't need to be any stratitifcation.

I believe that if we change this it will work.

neach <- max(floor(nrow / sum(ratio)), 1)

from simstudy.

I know what the issue is, my wife's input was invaluable :D
sample(c(integer(0), 2) == sample(2) which is shorthand for sample(1:2)

 c(integer(0), 2) == c(2)
#[1] TRUE

The zero length int is the result of rep(c(1:ncat), times = (neach * ratio))
I will push a fix soon.

from simstudy.