R/avoidance-const.R

In hejtmy/fgu-avoidance: Loading, preprocessing and visualising logs from the avoidance box

BOX_ROOM_REAL <- list(x = c(0, 440), y = c(0, 440))
BOX_ROOM <- list(x = c(0, 440), y = c(0, 440))

# This is for plotting of graphs with the background image
box_room_size <- function(type = "animal"){
  if(type == "animal"){
    return(BOX_ROOM)
  }
  if (type == "real"){
    return(BOX_ROOM_REAL)
  }
}

## IMAGES
#' Retuns path to the apparatus image
#'
#' @param darkside which zone should be dark? Oprions are "left" or "right. 
#' Defaults to "right"
#'
#' @export
apparatus_image_path <- function(darkside = RIGHT_ZONE_NAME){
  if(darkside == LEFT_ZONE_NAME) img <- "apparatus-flip.png"
  if(darkside == RIGHT_ZONE_NAME) img <- "apparatus.png"
  pth <- file.path(system.file("extdata", package = "fgu.avoidance"), "images", img)
  return(pth)
}