-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path_targets.R
401 lines (398 loc) · 14 KB
/
_targets.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
library(targets)
tar_option_set(
packages = c("tarchetypes", "data.table", "xts", "lubridate", "rmarkdown", "ggplot2"),
format = "parquet",
memory = "transient",
garbage_collection = TRUE
)
tar_source(files = "R")
options(timeout = 5*60)
list(
tarchetypes::tar_download(
name = file,
urls = c("https://minio.lab.sspcloud.fr/tfaria/public/real-time-fiscal-database.parquet"),
paths = "data/RealTimeDatabase.parquet"
),
tar_target(
name = RTDB,
command = get_RTDB(file),
),
tar_target(
name = GRateDB,
command = compute_growth_rate(RTDB),
),
tar_target(
name = Final_values,
command = get_final_values(RTDB, GRateDB),
),
tar_target(
name = RevisionDB,
command = compute_revisions(GRateDB),
),
tar_target(
name = RegressionDB,
command = create_regression_db(RevisionDB, GRateDB),
),
tar_target(
name = Regressions,
command = produce_regressions(RegressionDB, c(c("TOR", "DTX", "TIN", "SCT"), c("TOE", "THN", "PUR", "COE", "GIN"), c("YEN", "PCN", "ITN", "EXN", "GCN", "WGS")))
),
tar_target(
name = table_AIC,
command = get_regression_table(Regressions, "AIC", c(c("TOR", "DTX", "TIN", "SCT"), c("TOE", "THN", "PUR", "COE", "GIN"), c("YEN", "PCN", "ITN", "EXN", "GCN", "WGS")))
),
tar_target(
name = plot_total_revision,
command = Plot_TOTAL_REVISION(RevisionDB, Final_values, c("NL"), c("COE"), "GRate", as.Date("2019-01-01"), as.Date("2006-01-01")),
format = "rds"
),
tar_target(
name = plot_revisions_across_variables,
command = Plot_all_revisions(Data_all_revisions(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revisions_across_countries,
command = Plot_revisions_across_countries(Data_revisions_across_countries(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
c("TOR", "TOE", "YEN"),
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revisions_across_time,
command = Plot_revisions_across_time(Data_revisions_across_time(
RevisionDB,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT", "REA"),
c("YEN", "TOE", "TOR"),
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_statistics_full_sample,
command = Plot_STATISTICS(
RevisionDB, Final_values,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT", "REA"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS"),
"Final", "GRate", c(1),
as.Date("2020-01-01"), as.Date("2006-01-01"), scales_final_rev
),
format = "rds"
),
tar_target(
name = plot_statistics_pre2014,
command = Plot_STATISTICS(
RevisionDB, Final_values,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT", "REA"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS"),
"Final", "GRate", c(1),
as.Date("2014-03-01"), as.Date("2006-01-01"), scales_final_rev
),
format = "rds"
),
tar_target(
name = plot_statistics_post2014,
command = Plot_STATISTICS(
RevisionDB, Final_values,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT", "REA"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS"),
"Final", "GRate", c(1),
as.Date("2020-01-01"), as.Date("2014-03-01"), scales_final_rev
),
format = "rds"
),
tar_target(
name = plot_statistics_interm_pre2014,
command = Plot_STATISTICS(
RevisionDB, Final_values,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT", "REA"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS"),
"Intermediate", "GRate", 1:5,
as.Date("2014-03-01"), as.Date("2006-01-01"), scales_interm_rev
),
format = "rds"
),
tar_target(
name = plot_statistics_interm_post2014,
command = Plot_STATISTICS(
RevisionDB, Final_values,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT", "REA"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS"),
"Intermediate", "GRate", 1:5,
as.Date("2020-01-01"), as.Date("2014-03-01"), scales_interm_rev
),
format = "rds"
),
tar_target(
name = plot_single_rev_example,
command = Plot_SingleVSTotal(Data_SingleVSTotal(
RevisionDB, c("FR", "AT", "FI"), "SCT", "GRate", "Final",
as.Date("2016-07-02"), as.Date("2016-06-30")
)),
format = "rds"
),
tar_target(
name = plot_revision_paths,
command = Plot_PATHS(Data_PATHS(
RevisionDB,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS"),
"Final", "GRate", as.Date("2020-01-01"), as.Date("2006-01-01")
)),
format = "rds"
),
# APPENDIX
tar_target(
name = plot_revision_TOR,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"TOR",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_DTX,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"DTX",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_TIN,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"TIN",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_SCT,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"SCT",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_OCR,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"OCR",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_KTR,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"KTR",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_TOE,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"TOE",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_THN,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"THN",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_PUR,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"PUR",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_INP,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"INP",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_COE,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"COE",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_OCE,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"OCE",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_GIN,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"GIN",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_OKE,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"OKE",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_YEN,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"YEN",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_PCN,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"PCN",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_ITN,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"ITN",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_EXN,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"EXN",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_GCN,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"GCN",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_revision_WGS,
command = Plot_revisions_per_variable(Data_revisions_per_variable(
RevisionDB,
c("EA", "DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "REA", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
"WGS",
"Final", 1, "GRate"
)),
format = "rds"
),
tar_target(
name = plot_share_GDP,
command = Plot_Share_GDP(Data_Share_GDP(RTDB,
c("DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS", "KTR", "OCR", "OCE", "OKE", "INP"),
"S21")
),
format = "rds"
),
tar_target(
name = plot_mean_sd,
command = Plot_Mean_SD(Data_Mean_SD(GRateDB,
c("DE", "FR", "IT", "ES", "NL", "BE", "AT", "FI", "PT", "EL", "IE", "SK", "LU", "SI", "LT", "LV", "EE", "CY", "MT"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS", "KTR", "OCR", "OCE", "OKE", "INP"),
"S21", "GRate", as.Date("2019-12-31"), as.Date("2006-01-01")), scales_Mean_SD),
format = "rds"
),
tar_target(
name = plot_share_TOE,
command = Plot_Ranking(Data_Ranking(RTDB, "TOE", "S21", 2019)),
format = "rds"
),
tar_target(
name = table_BIC,
command = get_regression_table(Regressions, "BIC", c(c("TOR", "DTX", "TIN", "SCT"), c("TOE", "THN", "PUR", "COE", "GIN"), c("YEN", "PCN", "ITN", "EXN", "GCN", "WGS")))
),
tar_target(
name = plot_revision_paths_pre2014,
command = Plot_PATHS(Data_PATHS(
RevisionDB,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS"),
"Final", "GRate", as.Date("2014-03-01"), as.Date("2006-01-01")
)),
format = "rds"
),
tar_target(
name = plot_revision_paths_post2014,
command = Plot_PATHS(Data_PATHS(
RevisionDB,
c("DE", "ES", "FR", "IT", "NL", "BE", "AT", "FI", "PT"),
c("TOR", "DTX", "TIN", "SCT", "TOE", "THN", "PUR", "COE", "GIN", "YEN", "PCN", "ITN", "EXN", "GCN", "WGS"),
"Final", "GRate", as.Date("2020-01-01"), as.Date("2014-03-01")
)),
format = "rds"
)
)