propagate argument name change in teal::module (#541)

chlebowa · web-flow · commit 0ea34e50e0a4 · 2023-08-01T15:52:01.000+02:00
Part of [this](insightsengineering/teal#769)
diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
@@ -128,7 +128,7 @@ tm_a_pca <- function(label = "Principal Component Analysis",
         ggplot2_args = ggplot2_args
       )
     ),
-    filters = teal.transform::get_extract_datanames(data_extract_list)
+    datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
 }
 
diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -138,7 +138,7 @@ tm_a_regression <- function(label = "Regression Analysis",
         ggplot2_args = ggplot2_args
       )
     ),
-    filters = teal.transform::get_extract_datanames(data_extract_list)
+    datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
 }
 
diff --git a/R/tm_data_table.R b/R/tm_data_table.R
@@ -79,7 +79,7 @@ tm_data_table <- function(label = "Data Table",
     label,
     server = srv_page_data_table,
     ui = ui_page_data_table,
-    filters = if (length(datasets_selected) == 0) "all" else datasets_selected,
+    datanames = if (length(datasets_selected) == 0) "all" else datasets_selected,
     server_args = list(
       datasets_selected = datasets_selected,
       dt_args = dt_args,
diff --git a/R/tm_file_viewer.R b/R/tm_file_viewer.R
@@ -83,7 +83,7 @@ tm_file_viewer <- function(label = "File Viewer Module",
     server_args = list(input_path = input_path),
     ui = ui_viewer,
     ui_args = args,
-    filters = NULL
+    datanames = NULL
   )
 }
 
diff --git a/R/tm_front_page.R b/R/tm_front_page.R
@@ -76,7 +76,7 @@ tm_front_page <- function(label = "Front page",
     ui = ui_front_page,
     ui_args = args,
     server_args = list(tables = tables, show_metadata = show_metadata),
-    filters = if (show_metadata) "all" else NULL
+    datanames = if (show_metadata) "all" else NULL
   )
 }
 
diff --git a/R/tm_g_association.R b/R/tm_g_association.R
@@ -127,7 +127,7 @@ tm_g_association <- function(label = "Association",
       data_extract_list,
       list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)
     ),
-    filters = teal.transform::get_extract_datanames(data_extract_list)
+    datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
 }
 
diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
@@ -217,7 +217,7 @@ tm_g_bivariate <- function(label = "Bivariate Plots",
       data_extract_list,
       list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)
     ),
-    filters = teal.transform::get_extract_datanames(data_extract_list)
+    datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
 }
 
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -157,7 +157,7 @@ tm_g_distribution <- function(label = "Distribution Module",
     ),
     ui = ui_distribution,
     ui_args = args,
-    filters = teal.transform::get_extract_datanames(data_extract_list)
+    datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
 }
 
diff --git a/R/tm_g_response.R b/R/tm_g_response.R
@@ -137,7 +137,7 @@ tm_g_response <- function(label = "Response Plot",
       data_extract_list,
       list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)
     ),
-    filters = teal.transform::get_extract_datanames(data_extract_list)
+    datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
 }
 
diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -240,7 +240,7 @@ tm_g_scatterplot <- function(label = "Scatterplot",
       data_extract_list,
       list(plot_height = plot_height, plot_width = plot_width, table_dec = table_dec, ggplot2_args = ggplot2_args)
     ),
-    filters = teal.transform::get_extract_datanames(data_extract_list)
+    datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
 }
 
diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
@@ -98,7 +98,7 @@ tm_g_scatterplotmatrix <- function(label = "Scatterplot Matrix",
     ui = ui_g_scatterplotmatrix,
     ui_args = args,
     server_args = list(variables = variables, plot_height = plot_height, plot_width = plot_width),
-    filters = teal.transform::get_extract_datanames(variables)
+    datanames = teal.transform::get_extract_datanames(variables)
   )
 }
 
diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -86,7 +86,7 @@ tm_missing_data <- function(label = "Missing data",
       plot_width = plot_width, ggplot2_args = ggplot2_args
     ),
     ui = ui_page_missing_data,
-    filters = "all",
+    datanames = "all",
     ui_args = list(
       parent_dataname = parent_dataname, pre_output = pre_output,
       post_output = post_output, ggtheme = ggtheme
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -109,7 +109,7 @@ tm_outliers <- function(label = "Outliers Module",
     ),
     ui = ui_outliers,
     ui_args = args,
-    filters = teal.transform::get_extract_datanames(data_extract_list)
+    datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
 }
 
diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
@@ -110,7 +110,7 @@ tm_t_crosstable <- function(label = "Cross Table",
     ui = ui_t_crosstable,
     ui_args = ui_args,
     server_args = server_args,
-    filters = teal.transform::get_extract_datanames(list(x = x, y = y))
+    datanames = teal.transform::get_extract_datanames(list(x = x, y = y))
   )
 }
 
diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R
@@ -78,7 +78,7 @@ tm_variable_browser <- function(label = "Variable Browser",
     label,
     server = srv_variable_browser,
     ui = ui_variable_browser,
-    filters = "all",
+    datanames = "all",
     server_args = list(
       datasets_selected = datasets_selected,
       parent_dataname = parent_dataname,

Original file line number	Diff line number	Diff line change
`@@ -128,7 +128,7 @@ tm_a_pca <- function(label = "Principal Component Analysis",`
`128`	`128`	`ggplot2_args = ggplot2_args`
`129`	`129`	`)`
`130`	`130`	`),`
`131`		`- filters = teal.transform::get_extract_datanames(data_extract_list)`
	`131`	`+ datanames = teal.transform::get_extract_datanames(data_extract_list)`
`132`	`132`	`)`
`133`	`133`	`}`
`134`	`134`
Original file line number	Diff line number	Diff line change
`@@ -138,7 +138,7 @@ tm_a_regression <- function(label = "Regression Analysis",`
`138`	`138`	`ggplot2_args = ggplot2_args`
`139`	`139`	`)`
`140`	`140`	`),`
`141`		`- filters = teal.transform::get_extract_datanames(data_extract_list)`
	`141`	`+ datanames = teal.transform::get_extract_datanames(data_extract_list)`
`142`	`142`	`)`
`143`	`143`	`}`
`144`	`144`
Original file line number	Diff line number	Diff line change
`@@ -83,7 +83,7 @@ tm_file_viewer <- function(label = "File Viewer Module",`
`83`	`83`	`server_args = list(input_path = input_path),`
`84`	`84`	`ui = ui_viewer,`
`85`	`85`	`ui_args = args,`
`86`		`- filters = NULL`
	`86`	`+ datanames = NULL`
`87`	`87`	`)`
`88`	`88`	`}`
`89`	`89`
Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,7 @@ tm_front_page <- function(label = "Front page",`
`76`	`76`	`ui = ui_front_page,`
`77`	`77`	`ui_args = args,`
`78`	`78`	`server_args = list(tables = tables, show_metadata = show_metadata),`
`79`		`- filters = if (show_metadata) "all" else NULL`
	`79`	`+ datanames = if (show_metadata) "all" else NULL`
`80`	`80`	`)`
`81`	`81`	`}`
`82`	`82`
Original file line number	Diff line number	Diff line change
`@@ -127,7 +127,7 @@ tm_g_association <- function(label = "Association",`
`127`	`127`	`data_extract_list,`
`128`	`128`	`list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)`
`129`	`129`	`),`
`130`		`- filters = teal.transform::get_extract_datanames(data_extract_list)`
	`130`	`+ datanames = teal.transform::get_extract_datanames(data_extract_list)`
`131`	`131`	`)`
`132`	`132`	`}`
`133`	`133`
Original file line number	Diff line number	Diff line change
`@@ -217,7 +217,7 @@ tm_g_bivariate <- function(label = "Bivariate Plots",`
`217`	`217`	`data_extract_list,`
`218`	`218`	`list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)`
`219`	`219`	`),`
`220`		`- filters = teal.transform::get_extract_datanames(data_extract_list)`
	`220`	`+ datanames = teal.transform::get_extract_datanames(data_extract_list)`
`221`	`221`	`)`
`222`	`222`	`}`
`223`	`223`
Original file line number	Diff line number	Diff line change
`@@ -157,7 +157,7 @@ tm_g_distribution <- function(label = "Distribution Module",`
`157`	`157`	`),`
`158`	`158`	`ui = ui_distribution,`
`159`	`159`	`ui_args = args,`
`160`		`- filters = teal.transform::get_extract_datanames(data_extract_list)`
	`160`	`+ datanames = teal.transform::get_extract_datanames(data_extract_list)`
`161`	`161`	`)`
`162`	`162`	`}`
`163`	`163`
Original file line number	Diff line number	Diff line change
`@@ -137,7 +137,7 @@ tm_g_response <- function(label = "Response Plot",`
`137`	`137`	`data_extract_list,`
`138`	`138`	`list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args)`
`139`	`139`	`),`
`140`		`- filters = teal.transform::get_extract_datanames(data_extract_list)`
	`140`	`+ datanames = teal.transform::get_extract_datanames(data_extract_list)`
`141`	`141`	`)`
`142`	`142`	`}`
`143`	`143`
Original file line number	Diff line number	Diff line change
`@@ -240,7 +240,7 @@ tm_g_scatterplot <- function(label = "Scatterplot",`
`240`	`240`	`data_extract_list,`
`241`	`241`	`list(plot_height = plot_height, plot_width = plot_width, table_dec = table_dec, ggplot2_args = ggplot2_args)`
`242`	`242`	`),`
`243`		`- filters = teal.transform::get_extract_datanames(data_extract_list)`
	`243`	`+ datanames = teal.transform::get_extract_datanames(data_extract_list)`
`244`	`244`	`)`
`245`	`245`	`}`
`246`	`246`