r - 使用 if 语句只允许正整数

Question

如何在该 R 函数中使用 if 只允许输入 u 和 v 的正整数？

pierpont <- function(pp){ 
  var1 <- readline(prompt = "Enter u value:"); 
  var2 <- readline(prompt = "Enter v value:"); 
  var1 <-as.numeric(var1); 
  var2 <-as.numeric(var2); 

c((2^var1)*(3^var2)+1) 
}

Answer 1

新计划，检查输入是否为整数且> 0，然后返回结果

pierpont <- function() {
  var1 <- as.numeric(readline(prompt = "Enter u value:"))
  var2 <- as.numeric(readline(prompt = "Enter v value:"))
  if (!is.na(var1) & !is.na(var2) &
      (var1 %% 1 == 0) & (var1 > 0) &
      (var2 %% 1 == 0) & (var2 > 0)) {
    (2^var1)*(3^var2)+1
  } else {
    "wroooong"
  }
}