bold_identify() is returning a network error (I think this has arisen only in the last few days). the BOLD website is accepting sequences for identification. I'm guessing this is really a BOLD website problem, but i thought i would flag it up.
testseq <- list(eb4909 = "GAATAAATAATATAAGATTTTGATTACTCCCTCCTTCTTTATTtttATTAATTTTAAGAAATTTTATTGGAACGGGTGTAGGAACCGGATGAACTTTATATCCTCCTTTATCATCTATTGTTGGACATGATTCACCTTCTGTAGATTTAGGAATTttttCTATCCATATTGCTGGAATTTCCTCAATTATAGGATCAATTAATTTTATTGTTACTATTTTAAATATACacacaAaaaCTCATTCACTAAATTTTCTTCCTTTATTCACATGATCAATTTTAATTACAGCAATTCTTCTTCTGTTATCATTACCAGTTCTTGCAGGAGCAATTACTATACTTCTTACAGATCGAAATCTTAATACATCTTtttttGATCCCGCAGGTGGgggggATCCAATTTTATACCAACACTTATTTT")
boldoutput <- bold_identify(testseq, db="COX1_SPECIES")
Error in FUN(X[[i]], ...) : Internal Server Error (HTTP 500).
bold_identify()
is returning a network error (I think this has arisen only in the last few days). the BOLD website is accepting sequences for identification. I'm guessing this is really a BOLD website problem, but i thought i would flag it up.