Patch a bug in is.subcladeof
This commit is contained in:
@@ -622,7 +622,12 @@ SEXP R_is_under_taxon(SEXP Rtaxonomy, SEXP Rtaxid, SEXP Rparent)
|
|||||||
prep[i]=NA_LOGICAL;
|
prep[i]=NA_LOGICAL;
|
||||||
else {
|
else {
|
||||||
taxon = eco_findtaxonbytaxid(ptax, ptaxid[i]);
|
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;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user