Permutations, shuffling WITHIN but not BETWEEN groups [closed]

Question

In R, I need to make 100 repeat random permutations of group orders, keeping the composition and sizes of groups the same, but the order within the groups needs to be randomly shuffled (100 times)

By groups are A, B, C, D, E

For example,

A, B, B, B, E

A, E, E, C

C, E

C, D, D, A, A, E, C, E

C, D 

D, E 

Might become

B, B, E, B, A

A, C, E, E

E, C

D, A, A, C, E, D, E

D, C

E, D 

shuffled 100 different ways as an output?

Answer 1

lapply() together with sample() work:

groups <- list(
    c("A","B","B","B","E"),
    c("A","E","E","C"),
    c("C","E"),
    c("C","D","D","A","A","E","C","E"),
    c("C","D"),
    c("D","E"))

lapply(groups,function(xx)sample(xx,size=length(xx)))

[[1]]
[1] "E" "B" "A" "B" "B"

[[2]]
[1] "E" "C" "A" "E"

[[3]]
[1] "E" "C"

[[4]]
[1] "C" "E" "A" "E" "D" "D" "C" "A"

[[5]]
[1] "C" "D"

[[6]]
[1] "D" "E"