Update retrieve.R