Add R load data function