x %% 2中的错误：二元运算符

Question

以下代码产生错误

  

＆＃34; x %% 2中的错误：二元运算符的非数字参数＆＃34;在R。

代码：

oddeven <- function()
{
  x <- as.integer(readline(prompt = "insert number : "))

  if((x %% 2) == 0)
  {
    print("Even")
  }
  else
  {
    print("Odd")
  }
}

oddeven()

请说明实际错误在哪里？