with R slides