我正在尝试在R中创建一个函数，其中用户必须猜测1到100之间的一个数字，直到它正确为止，但最多7次

guess_number <- function() {
  target <- sample(1:100, 1)  # 生成1到100之间的随机数字作为目标
  attempts <- 0  # 猜测次数计数器
  
  while (attempts < 7) {
    guess <- as.integer(readline("请输入你猜测的数字（1到100之间）："))  # 读取用户的猜测并转为整数
    
    if (is.na(guess) || guess < 1 || guess > 100) {
      print("输入无效，请输入1到100之间的数字！")
    } else {
      attempts <- attempts + 1  # 猜测次数加1
      
      if (guess < target) {
        print("你猜的数字太小了！")
      } else if (guess > target) {
        print("你猜的数字太大了！")
      } else {
        print(paste("恭喜你，猜对了！你一共猜了", attempts, "次。"))
        break  # 猜对了，退出循环
      }
    }
  }
  
  if (attempts >= 7) {
    print(paste("很遗憾，你没有在7次内猜对。正确答案是", target, "。"))
  }
}