R语言stockfish_function返回character(0)自动重试失效问题

你现在的代码有三个核心问题导致重试逻辑完全不生效：

• 判断条件写错了：character(0)是长度为0的字符型向量，不是NULL，用is.null()判断空返回值永远得到FALSE，你写的重试分支根本不会触发。
• 就算把判断条件改对，当前写法最多重试1次，第二次依然返回空的话还是会拿到错误结果。
• 命令交互时序有问题：Stockfish收到命令后需要计算时间，你发完指令立刻读输出的时候结果还没生成，自然频繁拿到空值，重试不加等待很容易重复踩这个坑。
• 同一段业务代码复制两遍，后续改参数要改两处，很容易漏改出问题。

把单次执行逻辑套入带次数限制的重试循环，修正判断条件，每次重试前加短等待、清空残留输出，直到拿到符合要求的4个字符串结果，或者达到最大重试次数再抛出错误避免死循环。

stockfish_function <- function(move, max_retry = 5, base_wait_ms = 200){
  # 初始化空结果
  all_evaluations <- character(0)
  retry_count <- 0
  
  # 没凑齐4个合法结果、且没到最大重试次数就一直循环
  while(length(all_evaluations) != 4 && retry_count < max_retry){
    # 重试前等待，等待时间随重试次数递增，避免给引擎发太密集的请求
    Sys.sleep(base_wait_ms/1000 * (retry_count + 1))
    # 先读一次输出清空残留缓存，避免读到上一次的旧结果
    stockfish$read_output_lines()
    
    ### Stockfish交互逻辑 开始 ###
    stockfish$write_input('uci\n')
    stockfish$write_input(paste0('position startpos moves ',move,'\n'))
    stockfish$write_input('go movetime 100\n') 
    # 额外等150ms，等引擎跑完设置的100ms计算时长再读结果，从根源减少空返回
    Sys.sleep(0.15)
    stockfish$write_input('eval\n') 
    stockfish_response <- stockfish$read_output_lines() 
    
    classical_evaluation <- str_match(stockfish_response, 'Classical evaluation.+?\\(white side\\)')
    nnue_evaluation <- str_match(stockfish_response, 'NNUE evaluation.+?\\(white side\\)')
    final_evaluation <- str_match(stockfish_response, 'Final evaluation.+?\\(white side\\)')
    best_move <- str_match(stockfish_response, 'bestmove.+ponder.+')
    
    classical_evaluation <- head(classical_evaluation[complete.cases(classical_evaluation), ], 1)
    nnue_evaluation <- head(nnue_evaluation[complete.cases(nnue_evaluation), ], 1)
    final_evaluation <- head(final_evaluation[complete.cases(final_evaluation), ], 1)
    best_move <- head(best_move[complete.cases(best_move), ], 1)
    
    all_evaluations <- c(classical_evaluation, nnue_evaluation, final_evaluation, best_move)
    ### Stockfish交互逻辑 结束 ###
    
    retry_count <- retry_count + 1
  }
  
  # 达到最大重试次数还没拿到合法结果直接抛错，不悄悄返回空值影响后续循环
  if(length(all_evaluations) != 4){
    stop(paste0("处理走法", move, "时重试", max_retry, "次仍未拿到合法结果"))
  }
  
  return(all_evaluations)
}

核心改动说明 #

• 去掉重复代码，把交互逻辑统一放到循环里，后续修改逻辑只需要改一处
• 判断条件改成length(all_evaluations) != 4，只要没凑齐4个目标字符串就自动重试，默认最多重试5次，不会出现无限死循环
• 增加等待逻辑：发完计算指令后特意留足引擎计算时间，重试等待时间随次数递增，大幅降低空返回概率
• 每次执行前清空输出缓存，避免旧结果干扰解析
• 重试多次失败直接抛出明确错误，方便排查问题，不会因为悄悄返回空值导致后续批量运行出异常

内容的提问来源于stack exchange，提问作者Luke Jenner