R语言递归函数

Question

当我运行此功能时

log_gamma_recursive <- function(n) 
{
  if (n == 1)    
    return (1)

  y = (n-1)* log_gamma_recursive(n-1) 

  log(y)
}

我得到了

  

[1] NaN   警告信息：   在log（y）中：生成的NaNs'y'的值为24，但log（y）给出错误消息。

我不确定我错过了什么。非常感谢你的帮助。**