Update clip.R