# NOT RUN {
stimuli <- demo_stim()
# crop to 60% width and 80% height (centered)
crop(stimuli, width = .60, height = .80)
# crop to upper right quadrant
crop(stimuli, .5, .5, x_off = .5, y_off = 0)
# }
# NOT RUN {
# negative offset with fill
crop(stimuli, 260, 260,
x_off = -10, y_off = -10,
fill = c("red", "dodgerblue"))
# }
Run the code above in your browser using DataLab