R/file_path.R

Defines functions file_path

## File Name: file_path.R
## File Version: 0.03

file_path <- function( dir, file)
{
    if ( is.null(dir) ){
        p1 <- file
    } else {
        p1 <- file.path(dir, file)
    }
    return(p1)
}

Try the miceadds package in your browser

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

miceadds documentation built on Jan. 7, 2023, 1:09 a.m.