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
|
# These are standardized constructors for internal objects returned from
# different blueprint handlers
# ------------------------------------------------------------------------------
# Mold
new_mold_clean <- function(blueprint, data) {
list(
blueprint = blueprint,
data = data
)
}
new_mold_clean_xy <- function(blueprint, x, y) {
list(
blueprint = blueprint,
x = x,
y = y
)
}
new_mold_process <- function(predictors, outcomes, blueprint, extras) {
list(
predictors = predictors,
outcomes = outcomes,
blueprint = blueprint,
extras = extras
)
}
new_mold_process_terms <- function(blueprint,
data,
ptype,
extras = NULL) {
list(
blueprint = blueprint,
data = data,
ptype = ptype,
extras = extras
)
}
# ------------------------------------------------------------------------------
# Forge
new_forge_clean <- function(blueprint, predictors, outcomes, extras = NULL) {
list(
blueprint = blueprint,
predictors = predictors,
outcomes = outcomes,
extras = extras
)
}
new_forge_process <- function(predictors, outcomes, extras) {
list(
predictors = predictors,
outcomes = outcomes,
extras = extras
)
}
new_forge_process_terms <- function(blueprint,
data,
extras = NULL) {
list(
blueprint = blueprint,
data = data,
extras = extras
)
}
# ------------------------------------------------------------------------------
# ptypes
new_ptypes <- function(predictors, outcomes) {
list(
predictors = predictors,
outcomes = outcomes
)
}
# ------------------------------------------------------------------------------
# Extras
# Just c() them together
# Extras aren't predictor or outcome specific
new_extras <- function(predictors_extras, outcomes_extras) {
c(predictors_extras, outcomes_extras)
}
|
