Update shyr.R

basic get data feed