检查用户在R中的输入是否为数字和整数时出现问题。我不

Question

我无法获得被注释的行。我可以在这里使用一些帮助。另外，关于如何使更新的余额保持在功能范围内的任何建议？这样，第二次玩游戏时，您的余额将不同于1,000，具体取决于您对第一款游戏的下注金额。我不知道下次运行该功能时如何将更新的余额保持在循环中。谢谢！

playCraps <- function(betSize){
  balance <- 1000
  errors<- character(0)
  if(betSize > balance){
    errors <- paste("Please enter a bet size within your current balance", sep="\n")
  }
  # if(!is.numeric(betSize)){
  #   errors <- paste("Please enter a number", sep="\n")
  # }
  # if(!is.integer(betSize)){
  #   errors <- paste("Please enter a whole number", sep="\n")
  # }
  if(length(errors) > 0){
    stop(errors)
  }