Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.