sampling with replacement not working as expected

[dlenar]

This code produces the warning "Groups F NY AA, F CA DD, M TX BB, M CA DD contain fewer rows than requested. Returning all rows." Each of the groups listed has 1 row in DF. With replace=TRUE I expect this row to be selected twice, but it is only selected one time.

set.seed(2)
DF <- data.frame(
ID = 1:100,
A = sample(c("AA", "BB", "CC", "DD", "EE"), 100, replace = TRUE),
B = rnorm(100),
C = abs(round(rnorm(100), digits=1)),
D = sample(c("CA", "NY", "TX"), 100, replace = TRUE),
E = sample(c("M", "F"), 100, replace = TRUE))

stratified(DF, c("E", "D", "A"), size = 2, replace=TRUE)