Skip to content

Commit ba642f0

Browse files
averissimoaverissimo
committed
chore: rename ui/srv_teal_transform_data to ui/srv_transform_teal_data
1 parent f915e29 commit ba642f0

21 files changed

+82
-84
lines changed

‎R/tm_a_pca.R‎

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -240,7 +240,7 @@ ui_a_pca <- function(id, ...) {
240240
choices = args$plot_choices,
241241
selected = args$plot_choices[1]
242242
),
243-
ui_teal_transform_data(ns("decorate"), transformators = args$decorators)
243+
ui_transform_teal_data(ns("decorate"), transformators = args$decorators)
244244
),
245245
teal.widgets::panel_item(
246246
title = "Pre-processing",
@@ -975,11 +975,9 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
975975
)
976976
})
977977

978-
decorated_output_q_no_print <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)
978+
decorated_output_q_no_print <- srv_transform_teal_data("decorate", data = output_q, transformators = decorators)
979979
decorated_output_q <- reactive(within(decorated_output_q_no_print(), expr = print(plot)))
980980

981-
982-
983981
plot_r <- reactive({
984982
req(output_q())
985983
decorated_output_q()[["plot"]]

‎R/tm_a_regression.R‎

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -292,37 +292,37 @@ ui_a_regression <- function(id, ...) {
292292
conditionalPanel(
293293
condition = "input.plot_type == 'Response vs Regressor'",
294294
ns = ns,
295-
ui_teal_transform_data(ns("d_0"), transformators = args$decorators[[1]])
295+
ui_transform_teal_data(ns("d_0"), transformators = args$decorators)
296296
),
297297
conditionalPanel(
298298
condition = "input.plot_type == 'Residuals vs Fitted'",
299299
ns = ns,
300-
ui_teal_transform_data(ns("d_1"), transformators = args$decorators[[1]])
300+
ui_transform_teal_data(ns("d_1"), transformators = args$decorators)
301301
),
302302
conditionalPanel(
303303
condition = "input.plot_type == 'Normal Q-Q'",
304304
ns = ns,
305-
ui_teal_transform_data(ns("d_2"), transformators = args$decorators[[1]])
305+
ui_transform_teal_data(ns("d_2"), transformators = args$decorators)
306306
),
307307
conditionalPanel(
308308
condition = "input.plot_type == 'Scale-Location'",
309309
ns = ns,
310-
ui_teal_transform_data(ns("d_3"), transformators = args$decorators[[1]])
310+
ui_transform_teal_data(ns("d_3"), transformators = args$decorators)
311311
),
312312
conditionalPanel(
313313
condition = "input.plot_type == 'Cook\\'s distance'",
314314
ns = ns,
315-
ui_teal_transform_data(ns("d_4"), transformators = args$decorators[[1]])
315+
ui_transform_teal_data(ns("d_4"), transformators = args$decorators)
316316
),
317317
conditionalPanel(
318318
condition = "input.plot_type == 'Residuals vs Leverage'",
319319
ns = ns,
320-
ui_teal_transform_data(ns("d_5"), transformators = args$decorators[[1]])
320+
ui_transform_teal_data(ns("d_5"), transformators = args$decorators)
321321
),
322322
conditionalPanel(
323323
condition = "input.plot_type == 'Cook\\'s dist vs Leverage'",
324324
ns = ns,
325-
ui_teal_transform_data(ns("d_6"), transformators = args$decorators[[1]])
325+
ui_transform_teal_data(ns("d_6"), transformators = args$decorators)
326326
),
327327
),
328328
checkboxInput(ns("show_outlier"), label = "Display outlier labels", value = TRUE),
@@ -1000,13 +1000,13 @@ srv_a_regression <- function(id,
10001000
)
10011001
})
10021002

1003-
decorated_output_0 <- srv_teal_transform_data(id = "d_0", data = output_plot_0, transformators = decorators[[1]])
1004-
decorated_output_1 <- srv_teal_transform_data(id = "d_1", data = output_plot_1, transformators = decorators[[1]])
1005-
decorated_output_2 <- srv_teal_transform_data(id = "d_2", data = output_plot_2, transformators = decorators[[1]])
1006-
decorated_output_3 <- srv_teal_transform_data(id = "d_3", data = output_plot_3, transformators = decorators[[1]])
1007-
decorated_output_4 <- srv_teal_transform_data(id = "d_4", data = output_plot_4, transformators = decorators[[1]])
1008-
decorated_output_5 <- srv_teal_transform_data(id = "d_5", data = output_plot_5, transformators = decorators[[1]])
1009-
decorated_output_6 <- srv_teal_transform_data(id = "d_6", data = output_plot_6, transformators = decorators[[1]])
1003+
decorated_output_0 <- srv_transform_teal_data(id = "d_0", data = output_plot_0, transformators = decorators)
1004+
decorated_output_1 <- srv_transform_teal_data(id = "d_1", data = output_plot_1, transformators = decorators)
1005+
decorated_output_2 <- srv_transform_teal_data(id = "d_2", data = output_plot_2, transformators = decorators)
1006+
decorated_output_3 <- srv_transform_teal_data(id = "d_3", data = output_plot_3, transformators = decorators)
1007+
decorated_output_4 <- srv_transform_teal_data(id = "d_4", data = output_plot_4, transformators = decorators)
1008+
decorated_output_5 <- srv_transform_teal_data(id = "d_5", data = output_plot_5, transformators = decorators)
1009+
decorated_output_6 <- srv_transform_teal_data(id = "d_6", data = output_plot_6, transformators = decorators)
10101010

10111011

10121012
output_q <- reactive({

‎R/tm_g_bivariate.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -350,7 +350,7 @@ ui_g_bivariate <- function(id, ...) {
350350
justified = TRUE
351351
)
352352
),
353-
ui_teal_transform_data(ns("decorate"), transformators = args$decorators),
353+
ui_transform_teal_data(ns("decorate"), transformators = args$decorators),
354354
if (!is.null(args$row_facet) || !is.null(args$col_facet)) {
355355
tags$div(
356356
class = "data-extract-box",
@@ -665,7 +665,7 @@ srv_g_bivariate <- function(id,
665665
teal.code::eval_code(merged$anl_q_r(), substitute(expr = plot <- cl, env = list(cl = cl)))
666666
})
667667

668-
decorated_output_q <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)
668+
decorated_output_q <- srv_transform_teal_data("decorate", data = output_q, transformators = decorators)
669669

670670
decorated_output_q_facets <- reactive({
671671
ANL <- merged$anl_q_r()[["ANL"]]

‎R/tm_g_distribution.R‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -280,7 +280,7 @@ ui_distribution <- function(id, ...) {
280280
inline = TRUE
281281
),
282282
checkboxInput(ns("add_dens"), label = "Overlay Density", value = TRUE),
283-
ui_teal_transform_data(ns("d_dist"), transformators = args$decorators),
283+
ui_transform_teal_data(ns("d_dist"), transformators = args$decorators),
284284
collapsed = FALSE
285285
)
286286
),
@@ -289,7 +289,7 @@ ui_distribution <- function(id, ...) {
289289
teal.widgets::panel_item(
290290
"QQ Plot",
291291
checkboxInput(ns("qq_line"), label = "Add diagonal line(s)", TRUE),
292-
ui_teal_transform_data(ns("d_qq"), transformators = args$decorators),
292+
ui_transform_teal_data(ns("d_qq"), transformators = args$decorators),
293293
collapsed = FALSE
294294
)
295295
),
@@ -1242,13 +1242,13 @@ srv_distribution <- function(id,
12421242
output_dist_q <- reactive(c(output_common_q(), req(dist_q())))
12431243
output_qq_q <- reactive(c(output_common_q(), req(qq_q())))
12441244

1245-
decorated_output_dist_q <- srv_teal_transform_data(
1245+
decorated_output_dist_q <- srv_transform_teal_data(
12461246
"d_dist",
12471247
data = output_dist_q,
12481248
transformators = decorators
12491249
)
12501250

1251-
decorated_output_qq_q <- srv_teal_transform_data(
1251+
decorated_output_qq_q <- srv_transform_teal_data(
12521252
"d_qq",
12531253
data = output_qq_q,
12541254
transformators = decorators

‎R/tm_g_response.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -285,7 +285,7 @@ ui_g_response <- function(id, ...) {
285285
selected = ifelse(args$freq, "frequency", "density"),
286286
justified = TRUE
287287
),
288-
ui_teal_transform_data(ns("decorator"), transformators = args$decorators),
288+
ui_transform_teal_data(ns("decorator"), transformators = args$decorators),
289289
teal.widgets::panel_group(
290290
teal.widgets::panel_item(
291291
title = "Plot settings",
@@ -552,7 +552,7 @@ srv_g_response <- function(id,
552552
teal.code::eval_code(qenv, plot_call)
553553
})
554554

555-
decorated_output_q <- srv_teal_transform_data(id = "decorator", data = output_q, transformators = decorators)
555+
decorated_output_q <- srv_transform_teal_data(id = "decorator", data = output_q, transformators = decorators)
556556

557557
decorated_output_plot_q <- reactive(within(decorated_output_q(), print(plot)))
558558
plot_r <- reactive({

‎R/tm_t_crosstable.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -234,7 +234,7 @@ ui_t_crosstable <- function(id, x, y, show_percentage, show_total, pre_output, p
234234
checkboxInput(ns("show_total"), "Show total column", value = show_total)
235235
)
236236
),
237-
ui_teal_transform_data(ns("decorate"), transformators = args$decorators)
237+
ui_transform_teal_data(ns("decorate"), transformators = args$decorators)
238238
),
239239
forms = tagList(
240240
teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
@@ -407,7 +407,7 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,
407407
)
408408
})
409409

410-
decorated_output_q_no_print <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)
410+
decorated_output_q_no_print <- srv_transform_teal_data("decorate", data = output_q, transformators = decorators)
411411
decorated_output_q <- reactive(within(decorated_output_q_no_print(), expr = table))
412412

413413
output$title <- renderText(output_q()[["title"]])

‎man/tm_a_pca.Rd‎

Lines changed: 4 additions & 4 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)