R/uniqueformats.R

Defines functions uniqueformats

Documented in uniqueformats

uniqueformats <-
function (x2) 
{
    fm <- getformat(x2)
    ufm <- unique(fm)
    dat <- {
    }
    for (i in 1:length(ufm)) {
        f <- which(fm == ufm[i])
        f1 <- f[1]
        d <- data.frame(coord = x2[f1], format = fm[f1], stringsAsFactors = F)
        dat <- rbind(dat, d)
    }
    return(dat)
}

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.