Update R/retrieve.R