R vid and custom excerpts