update R QC function
Add accession name for GBS download