R中的scan（）函数存在问题

Question

我正在尝试使用scan（）从控制台获取值的简单过程 功能在R。

以上R代码效果很好：

funent <- function(){
  val <- scan(,,1)
  return(as.character(val))
}

print("Seleccione: 1. consulta, 2.cirugia")
tipo <- funent()

但是当我在下面添加更多代码时，它不起作用。执行不会在扫描中停止。

funent <- function(){
  val <- scan(,,1)
  return(as.character(val))
}

print("Seleccione: 1. consulta, 2.cirugia")
tipo <- funent()
while((tipo < 1 | tipo >2 )){
  if (tipo < 1 | tipo >2 ) { 
    print("Introduzca 1(consulta) o 2(cirugia)")
    tipo <- funent()
  }
}

我的R代码有什么问题吗？