Function to detect when a Minecraft player is standing in a hole. (Required miner package.)

holehiders.R

findMyId <- function() {
  # Requires https://github.com/ROpenSciLabs/miner
  # dig a hole one block deep and stand in it to be found
  # returns the IDs of players standing in a hole
  ids <- getPlayerIds()
  holehiders <- NULL
  for (id in ids) {
    pos <- getPlayerPos(id, tile=TRUE)
    surround <- getBlocks(pos[1]-1,pos[2],pos[3]-1, pos[1]+1, pos[2], pos[3]+1)[,1,]
    inhole <- all(c(surround[1,2],surround[2,1],surround[2,3], surround[3,2])!=0)
    if(inhole) holehiders <- c(holehiders,id)
  }
  holehiders
}