Create Extracts.R