R/dir_methods.R

In jeanmathieupotvin/dfp: Directories, Files and Paths

format.dir <- function(x, ...)
{
    cat("Object of S3 class 'dir' [directory]:\n",
        "[object]          dir path        <chr>: ", x, "\n",
        "[attr: 'exists']  dir exists      <log>: ", attr(x, "exists"), "\n",
        "[attr: 'created'] dir was created <log>: ", attr(x, "created"), "\n")
}

print.dir <- function(x, ...) cat(format(x, ...))

is_dir <- function(x) inherits(x, "dir")
is.dir <- function(x) is_dir(x)