if (FALSE) {
#Carregar imagem de exemplo
im=read_image(example_image(1),plot=TRUE)
im2=resize_image(im,w=1000,plot=TRUE)
im3=crop_image(im2,w =200:650,h=100:450,plot = TRUE)
imb=edit_image(im3,brightness = 0.1,contrast = 1.7,gamma = 1.2)
write_image(x = imb,files = "Test.jpg")
}
Run the code above in your browser using DataLab