运行后报错Error in `[<-`(`*tmp*`, i, , value = c((pos - 1)%/%board_size + 1, (pos - : subscript out of bounds

这个错误通常是由于生成的食物位置超出了游戏棋盘的范围所导致的。可以尝试修改`generate_food_pos`函数中的代码，避免出现超出范围的情况。以下是一个修改版的`generate_food_pos`函数：

# 生成食物位置
generate_food_pos <- function() {
  for (i in 1:food_count) {
    while (TRUE) {
      pos <- sample(board_size^2, 1)
      row <- (pos - 1) %/% board_size + 1
      col <- (pos - 1) %% board_size + 1
      if (board[row, col] == 0) {
        food_pos[i, ] <- c(row, col)
        break
      }
    }
  }
}

这个修改版的函数会在随机生成食物位置时，先将位置转换为行和列的坐标，然后再判断该位置是否超出棋盘范围。如果超出范围，则继续随机生成位置，直到找到一个合法的位置。这样就可以避免生成超出棋盘范围的食物位置，从而避免出现上述错误。