23 lines
597 B
R
23 lines
597 B
R
|
require(tidyverse)
|
||
|
require(lubridate)
|
||
|
|
||
|
source('globalData.R')
|
||
|
source('interfaces.R') # readGlimsArchive()
|
||
|
|
||
|
|
||
|
createPatches = function(tPeriods, dataPath, tFiles, tFileOvw) {
|
||
|
for (m in 1:nrow(tPeriods)) {
|
||
|
patch = readGlimsArchive(
|
||
|
ymdStartDate = tPeriods$startDate[m],
|
||
|
ymdEndDate = tPeriods$endDate[m],
|
||
|
readPreprocessed = F,
|
||
|
tFiles = tFiles,
|
||
|
tFileOvw = tFileOvw
|
||
|
)
|
||
|
filename = paste0(dataPath,'/bk_',
|
||
|
tPeriods$startDate[m], '_',
|
||
|
tPeriods$endDate[m], '.rds')
|
||
|
write_rds(patch, filename, compress = 'gz')
|
||
|
}
|
||
|
}
|