Create load_data.R

load data from web source