R在具有定义总和的固定范围内生成具有随机整数的向量

Question

我正在尝试将生成向量的代码放在一起，任何长度，只包含0到3范围内的随机整数值，总和总是等于100.

我想出了以下代码：

#Creating variables
x <- NULL
y_vec <- NULL

while(sum(y_vec) < 100) {
x <- sample(0:3,1)
y_vec <- c(y_vec, x) 
if(sum(y_vec) > 100) {
y_vec <- y_vec[-length(y_vec)]
} }

#Checking on the result
sum(y_vec)
y_vec

但是，我认为这个问题有一个更简单的代码。但到目前为止，我无法想出任何其他方式。