Fix new.R add source functions