R/modifiedtoday.R

Defines functions modifiedtoday

Documented in modifiedtoday

modifiedtoday <-
function (dat) 
{
    d8 <- as.POSIXct(dat$Modified, format = "%d-%m-%Y %H:%M:%S", 
        tz = Sys.timezone())
    tod <- format(Sys.time(), "%d-%m-%Y")
    tod <- paste(tod, "00:00:00", sep = " ")
    today <- as.POSIXct(tod, format = "%d-%m-%Y %H:%M:%S", tz = Sys.timezone())
    f1 <- which(d8 > today)
    f2 <- order(d8[f1], decreasing = T)
    f <- f1[f2]
}

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.