# suggested to install blast+ software
# \donttest{
# it will take a long time without blast+ software
data(Sample_ID_data)
if(requireNamespace("Biostrings", quietly = TRUE)){
out.folder = tempdir();
write.table(Sample_ID_data$db1,file.path(out.folder,"db1.fasta"),
quote = FALSE,row.names = FALSE, col.names = FALSE);
write.table(Sample_ID_data$db2,file.path(out.folder,"db2.fasta"),
quote = FALSE,row.names = FALSE, col.names = FALSE);
data <- ID_match(Sample_ID_data$ID_match_data,
db1.path = file.path(out.folder,"db1.fasta"),
db2.path = file.path(out.folder,"db2.fasta"),
out.folder = out.folder,
blast.path = NULL,
evalue = 0.1, verbose = 1)
file.remove( file.path(out.folder,"db1.fasta"),
file.path(out.folder,"db2.fasta"))
}
# }
Run the code above in your browser using DataLab