Update slide.R