#' Get player position
#'
#' Get entity position. The default is to get the position of the first player spawned
#' in the game, but the positions of other players can be gotten using the
#' `player_id` argument.
#'
#' @param player_id Integer giving the ID of a player. You can find IDs of all
#' current players using [getPlayerIds()].
#' @param tile Logical value specifying whether to truncate the output position to
#' an integer (i.e., the location of the tile on which the player is
#' positioned).
#'
#' @return A numeric vector of length three giving the position (x, y,
#' and z) of the requested player.
#'
#'
#' @details x is east/west with east being the positive direction. y
#' is up/down with up being the positive direction, and z is
#' north/south with south being the positive direction.
#'
#' @examples
#' \dontrun{
#' mc_connect()
#' getPlayerPos()
#' getPlayerPos(tile = TRUE)
#'
#' example_entity <- getPlayerIds()[1]
#' getPlayerPos(example_entity)
#' }
#'
#' @seealso [setPlayerPos()], [getPlayerRotation()],
#' [getPlayerPitch()], and [getPlayerDirection()]
#'
#' @export
getPlayerPos <- function(player_id = NULL, tile = FALSE)
{
if(is.null(player_id)){
z <- mc_sendreceive("player.getPos()")
} else {
z <- mc_sendreceive(merge_data("entity.getPos", player_id))
}
out <- as.numeric( strsplit(z, ",")[[1]] )
if(tile == TRUE){
out <- floor(out)
}
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.