r - rでrepステートメントを使用して階乗を取得するには?

Question

repステートメントで階乗関数を取得したい。

やってみます!! でも失敗！！

   fact <- function(n){
      for (i in 0:n){
        while(i<n){
          rep{n*fact(n-1) if(i ==n) break}
       }
    }

ご回答ありがとうございます。:)