bug fix webhack

VascoElbrecht · Aug 30, 2017 · fc3be5f · fc3be5f
1 parent b46cba8
commit fc3be5f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/JAMP/R/BOLD_web_hack.R b/JAMP/R/BOLD_web_hack.R
@@ -38,7 +38,7 @@ temp <- data[OTU_start[i]:OTU_end[i]]
 OTU <- sub("Query: (.*) ", "\\1", data[OTU_start[i]])
 
 if(temp[5]=="Unable to match any records in the selected database. "){
-temp_tab <- data.frame(Phylum, Class, Order, Family, Genus, Species, Similarity, Status, stringsAsFactors=F)
+temp_tab <- data.frame("Phylum"=NA, "Class"=NA, "Order"=NA, "Family"=NA, "Genus"=NA, "Species"=NA, "Similarity"=NA, "Status"=NA, stringsAsFactors=F)
 write.csv(temp_tab, paste("OTUs/", OTU, ".csv", sep=""), row.names=F)
 } else {