Factored out page elements into variables in model.R