你给我的移动贪吃蛇部分的代码不完全，只有朝右的选择没有其他方向

非常抱歉，那段代码确实只包括贪吃蛇向右移动的逻辑，我漏掉了其他方向的代码。下面是完整的`gameLoop`函数，包括四个方向的移动逻辑：

# 定义游戏逻辑
gameLoop <- function() {
  # 移动贪吃蛇
  snakeBody <- rbind(snakeHead, snakeBody[1:(snakeLength-1),])
  snakeHead <- snakeHead + direction
  
  # 判断是否吃到食物
  if (all(snakeHead == food)) {
    snakeLength <- snakeLength + 1
    food <- sample(which(gameMap == 0), 1)
  }
  
  # 判断游戏是否结束
  if (snakeHead[1] < 1 || snakeHead[1] > gameHeight ||
      snakeHead[2] < 1 || snakeHead[2] > gameWidth ||
      any(apply(snakeBody, 1, function(x) all(x == snakeHead)))) {
    return(FALSE)
  }
  
  # 更新游戏地图
  gameMap <- matrix(0, nrow = gameHeight, ncol = gameWidth)
  gameMap[food[1], food[2]] <- 2
  gameMap[snakeHead[1], snakeHead[2]] <- 1
  gameMap[snakeBody[,1], snakeBody[,2]] <- 1
  
  # 绘制游戏界面
  gamePlot <- ggplot() +
    geom_tile(data = data.frame(x = 1:gameWidth, y = 1:gameHeight, val = gameMap),
              aes(x, y, fill = factor(val)), color = "black") +
    theme_void() +
    scale_fill_manual(values = c("white", "black", "red"))
  
  # 显示游戏界面
  grid.newpage()
  pushViewport(viewport(width = 0.8, height = 0.8))
  print(gamePlot, vp = viewport(width = 1, height = 1))
  popViewport()
  
  # 等待一定时间再进行下一次循环
  Sys.sleep(0.2)
  
  # 返回游戏是否结束的标志
  return(TRUE)
}

在这个函数中，`direction`是一个表示贪吃蛇移动方向的向量。例如，向右移动时，`direction`应该是`c(0, 1)`，向上移动时应该是`c(-1, 0)`，向左移动时应该是`c(0, -1)`，向下移动时应该是`c(1, 0)`。您可以使用键盘上的方向键来改变`direction`的值，并控制贪吃蛇的移动方向。

希望这个更新的代码能够帮助您完成贪吃蛇游戏的编写。如果您还有其他问题，请随时提问。