R/dirnev.R

"dirnev" <-
function () {

    .K <- getwd()
    .L <- strsplit(.K, "RWork")[[1]]
    .L <- rev(.L)[1]
    NC <- nchar(.L)
    KI <- substring(.L, 2, NC - 2)
    return(KI)
}

Try the hdeco package in your browser

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

hdeco documentation built on May 30, 2017, 8:26 a.m.