2020-01-03 取json列表里面元素，文件名改成样本名

###确保文件名都是按照顺序（order）排列的

length(x)

x[[1]]

n=length(x)

id=NULL

sample_id=NULL

for (i in 1:n) {

  id[i]=x[[i]]$submitter_id

  sample_id[i]=x[[i]]$associated_entities[[1]]$entity_submitter_id

}

exchangename=data.frame(id,sample_id)

id=substr(id,1,8)

sample_id=substr(sample_id,1,16)

exchangename=exchangename[order(exchangename$id),]

colnames(sample_merge20)=exchangename$sample_id