changed name to getShareData.R