Commit 9647b525 by Eric Coissac

Patch a bug in is.subcladeof

parent 2e45093e
......@@ -622,7 +622,12 @@ SEXP R_is_under_taxon(SEXP Rtaxonomy, SEXP Rtaxid, SEXP Rparent)
prep[i]=NA_LOGICAL;
else {
taxon = eco_findtaxonbytaxid(ptax, ptaxid[i]);
prep[i] = eco_isundertaxon(taxon, parent);
if (taxon) {
prep[i] = eco_isundertaxon(taxon, parent);
}
else {
prep[i]=NA_LOGICAL;
}
}
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment