R/Directory.R

In aviralg/experimentr: Scheduling, manage and analyze large-scale program analysis runs

#' @export
#' @importFrom R6 R6Class
#' @importFrom fs dir_create link_create path
Directory <- R6Class(

    "Directory",

    inherit = FileSystemEntry,

    public = list(

        initialize = function(path, link = NULL) {
            super$initialize(path)

            if (is.null(link)) {
                dir_create(path)
            } else {
                dir_create(path_dir(path))
                link_create(link, path)
            }
        },

        dir = function(dirname, link = NULL) {
            Directory$new(path(super$path(), dirname), link)
        },

        file = function(filename) {
            File$new(path(super$path(), filename))
        }
    )
)