R/4.1.2-DeltaT.R

In Sumpfohreule/S4Level2: Aggregates FVA Level2 Raw Data

########################################################################################################################
#' @include 0.0.0-Level2URI.R
setClass(Class = "DeltaT", contains = "Logger")

setMethod("initialize", signature = "DeltaT", definition = function(
    .Object,
    unique_name = class(.Object),
    uri,
    local_directory,
    paths,
    pattern = "\\.dat") {

    callNextMethod(
        .Object,
        unique_name = unique_name,
        uri = uri,
        local_directory = local_directory,
        paths = paths,
        pattern = pattern)
})


########################################################################################################################
#' @include importRawLoggerFile.R
setMethod("importRawLoggerFile", signature = "DeltaT", definition = function(.Object, path) {
    data <- LoggerImports::readDeltaT(path)
    data <- data.table::as.data.table(data)
    long.table <- data.table::melt(data, id.vars = "Datum")
    data.table::setkey(long.table, variable, Datum)
    return(long.table)
})