if (FALSE) {
ds <- rf100_document_collection(
dataset = "tweeter_post",
split = "train",
transform = transform_to_tensor,
download = TRUE
)
# Retrieve a sample and inspect annotations
item <- ds[1]
item$y$labels
item$y$boxes
# Draw bounding boxes and display the image
boxed_img <- draw_bounding_boxes(item)
tensor_image_browse(boxed_img)
}
Run the code above in your browser using DataLab