'How can I create a condition to delete the files?
I am trying to get the pixel-variance of each image from my data folder and delete them when it's lower than 800. I have worked with deleting rows or columns in dataframes but this doesn't work for lists. Can someone here help me with what exactly I am doing wrong here?
library(magick)
library(tidyverse)
Folder <- "......."
images <- list.files(path = Folder, pattern = "*.JPG", full.names = TRUE)
images <- map(images, image_read)
images[$image_variance <= 800.0000,]
Solution 1:[1]
You can use purrr::keep
result <- purrr::keep(images, ~image_variance(.x) > 800)
Or base R Filter
to keep only those images when their variance is greater than 800.
result <- Filter(function(x) image_variance(x) > 800, images)
Sources
This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.
Source: Stack Overflow
Solution | Source |
---|---|
Solution 1 | Ronak Shah |