Create list.txt?name=Insecta&rel=all_children&status=senior&rank=species&show=attr&limit=999999")  #extracts publication years ins_names$pubyr<-gsub("[^0-9]","",ins_names$attribution)  #add publication years to occurrences occs_env$pubyr<-apply(occs_env,1,function(x) ins_names$pubyr[which(ins_names$taxon_name==paste(x[5],x[7]))])  #Creates data files for suprafamilial groups col_occs<-subset(occs_env,occs_env$occurrence_no %in% coleop$occurrence_no) odon_occs<-subset(occs_env,occs_env$occurrence_no %in% odonat$occurrence_no) blatt_occs<-subset(occs_env,occs_env$occurrence_no %in% blatt$occurrence_no) orth_occs<-subset(occs_env,occs_env$occurrence_no %in% orthop$occurrence_no) hem_occs<-subset(occs_env,occs_env$occurrence_no %in% hemip$occurrence_no) dip_occs<-subset(occs_env,occs_env$occurrence_no %in% dipt$occurrence_no)