Estoy tratando de muestrear al azar 7 números del 0 al 7 (con reemplazo), pero sujeto a la restricción de que los números elegidos suman 7. Por ejemplo, la salida 0 1 1 2 3 0 0 está bien, pero la salida 1 2 3 4 5 6 7 no lo es. ¿Hay alguna manera de usar el comando de ejemplo con restricciones añadidas?

Tengo la intención de utilizar la función replicate () con el comando de muestra como argumento, para devolver una lista de N vectores diferentes del comando de muestra. De la forma en que estoy usando el comando de muestra (sin restricciones), necesito que N sea muy grande para obtener tantos vectores posibles que sumen exactamente 7 como sea posible. Me imagino que debe haber una manera más fácil de hacer esto.

Aquí está mi código para esa parte:

x <- replicate(100000, sample(0:7, 7, replace=T))    

Idealmente, quiero que 10,000 o 100,000 vectores en x sumen 7, pero necesitaría un enorme valor de N para hacer esto. Gracias por cualquier ayuda.