Update R-on-the-day-interactive.R

This is a lot of work