turned load_data into actually executable R batch