R/boxpoints.R

In boundingbox: Create a Bounding Box in an Image

boxPoints <- function(points_process, size_x, size_y, point_count){
    #ADJUST THE CAPTURED POINTS AND FIND THE COORDINATES OF THE BOUNDING BOX
    # Find any points outside of bounds of 0 to x_size or y_size and adjust to be inbounds
    points_process[-1][points_process[-1] <= 0] <- 1

    points_process[substr(colnames(points_process), 2,3) == "_x" & points_process >= size_x] <- (size_x - 1)
    points_process[substr(colnames(points_process), 2,3) == "_y" & points_process >= size_y] <- (size_y - 1)

    # flip the y coordinates as when working with images the y origin is at the top
    points_process[, substr(colnames(points_process), 2,3) == "_y"] <-
        size_y - points_process[, substr(colnames(points_process), 2,3) == "_y"]


    # round the values and convert to integers
    points_process[-1] <- sapply(points_process[-1],function(x) as.integer(round(x)) )

    #order is [x_left, y_top, x_right, y_bottom]
    x_columns <- seq.int(from=2, by=2, length.out = point_count)
    y_columns <- x_columns + 1

    points_process$x_left <- apply(points_process[ , x_columns], 1, min)
    points_process$y_top <-apply(points_process[ , y_columns], 1, min)
    points_process$x_right <- apply(points_process[ , x_columns], 1, max)
    points_process$y_bottom <- apply(points_process[ , y_columns], 1, max)
    points_boxed <- points_process[,c("file_name", "x_left", "y_top", "x_right", "y_bottom")]
    points_boxed$size_x <- as.integer(size_x)
    points_boxed$size_y <- as.integer(size_y)

    return(points_boxed)
}