spgl.dt.lsFileStr.addDtHeadlineFile: spgl.dt.lsFileStr.addDtHeadlineFile

In Krysek/spgl:

Description

create a method to get the value of the dtDlDir

Usage

spgl.dt.lsFileStr.addDtHeadlineFile(lsFileStr, dtHeadlineFile)


  ## S4 method for signature 'spgl.dt.lsFileStr,data.table'
spgl.dt.lsFileStr.addDtHeadlineFile(lsFileStr,
  dtHeadlineFile)

Arguments

lsFileStr	spgl.dt.lsFileStr.setDtDlDir
dtHeadlineFile	data.table

Details

XXX

Value

spgl.dt.lsFileStr spgl.dt.lsFileStr

Author(s)

Christian Frei

Examples

lsFileStr <- new("spgl.dt.lsFileStr")
dtHeadlineFile1 <- spgl.dt.dtHeadlineFile(id                   = as.integer(1),
                                          idDlDir              = as.integer(1),
                                          forDate              = lubridate::as_date(today()),
                                          inDate               = lubridate::as_date(today()),
                                          inTime               = lubridate::as_datetime(now()),
                                          dlDir                = "a",
                                          dlDir.fllPath        = "b",
                                          rawDir               = "c",
                                          rawDir.fllPath       = "d",
                                          fileHTML             = "e",
                                          fileHTML.fllPath     = "f",
                                          fileCSV              = "g",
                                          fileCSV.fllPath      = "h")
lsFileStr <- spgl.dt.lsFileStr.setDtHeadlineFile(lsFileStr, dtHeadlineFile1)
dtHeadlineFile2 <- spgl.dt.dtHeadlineFile(id                   = as.integer(2),
                                          idDlDir              = as.integer(2),
                                          forDate              = lubridate::as_date(today()-years(1)),
                                          inDate               = lubridate::as_date(today()-years(1)),
                                          inTime               = lubridate::as_datetime(now()-years(1)),
                                          dlDir                = "g",
                                          dlDir.fllPath        = "h",
                                          rawDir               = "i",
                                          rawDir.fllPath       = "j",
                                          fileHTML             = "k",
                                          fileHTML.fllPath     = "l",
                                          fileCSV              = "m",
                                          fileCSV.fllPath      = "n")
lsFileStr <- spgl.dt.lsFileStr.addDtHeadlineFile(lsFileStr, dtHeadlineFile2)
print(spgl.dt.lsFileStr.getDtHeadlineFile(lsFileStr))

Krysek/spgl documentation built on May 14, 2019, 8:19 a.m.