if (FALSE) {
ds <- places365_dataset(
split = "val",
download = TRUE,
transform = transform_to_tensor
)
item <- ds[1]
tensor_image_browse(item$x)
# Show class index and label
label_idx <- item$y
label_name <- ds$classes[label_idx]
cat("Label index:", label_idx, "Class name:", label_name, "\n")
dl <- dataloader(ds, batch_size = 2)
batch <- dataloader_next(dataloader_make_iter(dl))
batch$x
ds_large <- places365_dataset_large(
split = "val",
download = TRUE,
transform = . %>% transform_to_tensor() %>% transform_resize(c(256, 256))
)
dl <- torch::dataloader(dataset = ds_large, batch_size = 2)
batch <- dataloader_next(dataloader_make_iter(dl))
batch$x
}
Run the code above in your browser using DataLab