Skip to content

Commit 801b008

Browse files
m7prm7pr
committed
transformators parameter
1 parent 268a604 commit 801b008

29 files changed

+127
-116
lines changed

‎R/tm_a_pca.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -133,6 +133,7 @@ tm_a_pca <- function(label = "Principal Component Analysis",
133133
size = c(2, 1, 8),
134134
pre_output = NULL,
135135
post_output = NULL,
136+
transformators = list(),
136137
decorators = NULL) {
137138
message("Initializing tm_a_pca")
138139

@@ -208,6 +209,7 @@ tm_a_pca <- function(label = "Principal Component Analysis",
208209
decorators = decorators
209210
)
210211
),
212+
transformators = transformators,
211213
datanames = teal.transform::get_extract_datanames(data_extract_list)
212214
)
213215
attr(ans, "teal_bookmarkable") <- FALSE

‎R/tm_a_regression.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -157,6 +157,7 @@ tm_a_regression <- function(label = "Regression Analysis",
157157
default_plot_type = 1,
158158
default_outlier_label = "USUBJID",
159159
label_segment_threshold = c(0.5, 0, 10),
160+
transformators = list(),
160161
decorators = NULL) {
161162
message("Initializing tm_a_regression")
162163

@@ -251,6 +252,7 @@ tm_a_regression <- function(label = "Regression Analysis",
251252
decorators = decorators
252253
)
253254
),
255+
transformators = transformators,
254256
datanames = teal.transform::get_extract_datanames(data_extract_list)
255257
)
256258
attr(ans, "teal_bookmarkable") <- FALSE

‎R/tm_g_association.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -138,6 +138,7 @@ tm_g_association <- function(label = "Association",
138138
pre_output = NULL,
139139
post_output = NULL,
140140
ggplot2_args = teal.widgets::ggplot2_args(),
141+
transformators = list(),
141142
decorators = NULL) {
142143
message("Initializing tm_g_association")
143144

@@ -196,6 +197,7 @@ tm_g_association <- function(label = "Association",
196197
data_extract_list,
197198
list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args, decorators = decorators)
198199
),
200+
transformators = transformators,
199201
datanames = teal.transform::get_extract_datanames(data_extract_list)
200202
)
201203
attr(ans, "teal_bookmarkable") <- TRUE

‎R/tm_g_bivariate.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -195,6 +195,7 @@ tm_g_bivariate <- function(label = "Bivariate Plots",
195195
ggplot2_args = teal.widgets::ggplot2_args(),
196196
pre_output = NULL,
197197
post_output = NULL,
198+
transformators = list(),
198199
decorators = NULL) {
199200
message("Initializing tm_g_bivariate")
200201

@@ -303,6 +304,7 @@ tm_g_bivariate <- function(label = "Bivariate Plots",
303304
data_extract_list,
304305
list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args, decorators = decorators)
305306
),
307+
transformators = transformators,
306308
datanames = teal.transform::get_extract_datanames(data_extract_list)
307309
)
308310
attr(ans, "teal_bookmarkable") <- TRUE

‎R/tm_g_distribution.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -150,6 +150,7 @@ tm_g_distribution <- function(label = "Distribution Module",
150150
plot_width = NULL,
151151
pre_output = NULL,
152152
post_output = NULL,
153+
transformators = list(),
153154
decorators = NULL) {
154155
message("Initializing tm_g_distribution")
155156

@@ -231,6 +232,7 @@ tm_g_distribution <- function(label = "Distribution Module",
231232
),
232233
ui = ui_distribution,
233234
ui_args = args,
235+
transformators = transformators,
234236
datanames = teal.transform::get_extract_datanames(data_extract_list)
235237
)
236238
attr(ans, "teal_bookmarkable") <- TRUE

‎R/tm_g_response.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -156,6 +156,7 @@ tm_g_response <- function(label = "Response Plot",
156156
ggplot2_args = teal.widgets::ggplot2_args(),
157157
pre_output = NULL,
158158
post_output = NULL,
159+
transformators = list(),
159160
decorators = NULL) {
160161
message("Initializing tm_g_response")
161162

@@ -229,6 +230,7 @@ tm_g_response <- function(label = "Response Plot",
229230
decorators = decorators
230231
)
231232
),
233+
transformators = transformators,
232234
datanames = teal.transform::get_extract_datanames(data_extract_list)
233235
)
234236
attr(ans, "teal_bookmarkable") <- TRUE

‎R/tm_g_scatterplot.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -239,6 +239,7 @@ tm_g_scatterplot <- function(label = "Scatterplot",
239239
post_output = NULL,
240240
table_dec = 4,
241241
ggplot2_args = teal.widgets::ggplot2_args(),
242+
transformators = list(),
242243
decorators = NULL) {
243244
message("Initializing tm_g_scatterplot")
244245

@@ -340,6 +341,7 @@ tm_g_scatterplot <- function(label = "Scatterplot",
340341
decorators = decorators
341342
)
342343
),
344+
transformators = transformators,
343345
datanames = teal.transform::get_extract_datanames(data_extract_list)
344346
)
345347
attr(ans, "teal_bookmarkable") <- TRUE

‎R/tm_g_scatterplotmatrix.R‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -177,6 +177,7 @@ tm_g_scatterplotmatrix <- function(label = "Scatterplot Matrix",
177177
plot_width = NULL,
178178
pre_output = NULL,
179179
post_output = NULL,
180+
transformators = list(),
180181
decorators = NULL) {
181182
message("Initializing tm_g_scatterplotmatrix")
182183

‎R/tm_missing_data.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -117,6 +117,7 @@ tm_missing_data <- function(label = "Missing data",
117117
),
118118
pre_output = NULL,
119119
post_output = NULL,
120+
transformators = list(),
120121
decorators = NULL) {
121122
message("Initializing tm_missing_data")
122123

@@ -169,6 +170,7 @@ tm_missing_data <- function(label = "Missing data",
169170
decorators = decorators
170171
),
171172
ui = ui_page_missing_data,
173+
transformators = transformators,
172174
datanames = "all",
173175
ui_args = list(pre_output = pre_output, post_output = post_output)
174176
)

‎R/tm_outliers.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -157,6 +157,7 @@ tm_outliers <- function(label = "Outliers Module",
157157
plot_width = NULL,
158158
pre_output = NULL,
159159
post_output = NULL,
160+
transformators = list(),
160161
decorators = NULL) {
161162
message("Initializing tm_outliers")
162163

@@ -221,6 +222,7 @@ tm_outliers <- function(label = "Outliers Module",
221222
),
222223
ui = ui_outliers,
223224
ui_args = args,
225+
transformators = transformators,
224226
datanames = teal.transform::get_extract_datanames(data_extract_list)
225227
)
226228
attr(ans, "teal_bookmarkable") <- TRUE

0 commit comments

Comments
 (0)