I've done this and the following task in the outline.R script