finish SiteList.r