update code.R