R/File.R

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

#' @export
#' @importFrom R6 R6Class
#' @importFrom fs file_exists
File <- R6Class(

    "File",

    inherit = FileSystemEntry,

    public = list(

        initialize = function(path) {
            super$initialize(path)
        },

        dir = function() {
            Directory$new(super$parent())
        },

        extension = function() {
            path_ext(super$path())
        },

        exists = function() {
            file_exists(super$path())
        },

        read = function() {
            reader <- get_reader(self$extension())
            ## TODO: cache
            reader(super$path())
        },

        write = function(content) {
            writer <- get_writer(self$extension())
            writer(content, super$path())
        }
    )
)