condition error in checkInverted

[ggrittz]

In Line 80 of plantR::checkInverted, in cases where check_these <- check1$tmp.country.gazet == check1$NAME_0 is equal to a vector of NA, the following condition if (any(check_these)) returns NA when a TRUE/FALSE is expected, resulting in:

any(check_these)
[1] NA

Error in if (any(check_these)) { : valor ausente onde TRUE/FALSE necessário

and stopping the next steps. Maybe an if(any(check_these, na.rm = TRUE)) suffices for these cases?

any(check_these, na.rm = TRUE)
[1] FALSE