R/missingcoords.R

Defines functions missingcoords

Documented in missingcoords

missingcoords <-
function (x, y) 
{
    xf <- getformat(x)
    xf1 <- matrix(unlist(str_locate(xf, "0")), ncol = 2, byrow = F)
    if (any(is.na(xf1[, 1]))) {
        f1 <- which(is.na(xf1[, 1]))
    }
    else {
        f1 <- {
        }
    }
    yf <- getformat(y)
    yf1 <- matrix(unlist(str_locate(yf, "0")), ncol = 2, byrow = F)
    if (any(is.na(yf1[, 1]))) {
        f2 <- which(is.na(yf1[, 1]))
    }
    else {
        f2 <- {
        }
    }
    f <- unique(c(f1, f2))
    return(f)
}

Try the biogeo package in your browser

Any scripts or data that you put into this service are public.

biogeo documentation built on May 29, 2017, 10:55 a.m.