R语言输入一个整数判断奇偶

以下是R语言判断整数奇偶性的方法：

num <- as.integer(readline(prompt="请输入一个整数："))
if(num %% 2 == 0){
  print("偶数")
}else{
  print("奇数")
}

用户需要输入一个整数，程序会判断该整数是否为偶数，如果是则输出“偶数”，否则输出“奇数”。