Create global.R

Global script