fix: address the cran NOTEs

insightsengineering · Nov 9, 2023 · a61bdf5 · a61bdf5
1 parent c7870e7
commit a61bdf5
Show file tree

Hide file tree

Showing 11 changed files with 13 additions and 13 deletions.
diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
@@ -257,7 +257,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
       response[[i]]$select$choices <- var_labels(data[[response[[i]]$dataname]]())
       response[[i]]$select$choices <- setdiff(
         response[[i]]$select$choices,
-        unlist(join_keys(data)[[response[[i]]$dataname]])
+        unlist(teal.data::join_keys(data)[[response[[i]]$dataname]])
       )
     }
 
@@ -323,7 +323,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
     anl_merged_input <- teal.transform::merge_expression_srv(
       selector_list = selector_list,
       datasets = data,
-      join_keys = join_keys(data)
+      join_keys = teal.data::join_keys(data)
     )
 
     anl_merged_q <- reactive({

diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -295,7 +295,7 @@ srv_a_regression <- function(id,
     anl_merged_input <- teal.transform::merge_expression_srv(
       selector_list = selector_list,
       datasets = data,
-      join_keys = join_keys(data)
+      join_keys = teal.data::join_keys(data)
     )
 
     regression_var <- reactive({

diff --git a/R/tm_g_association.R b/R/tm_g_association.R
@@ -251,7 +251,7 @@ srv_tm_g_association <- function(id,
     anl_merged_input <- teal.transform::merge_expression_srv(
       datasets = data,
       selector_list = selector_list,
-      join_keys = join_keys(data)
+      join_keys = teal.data::join_keys(data)
     )
 
     anl_merged_q <- reactive({

diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
@@ -441,7 +441,7 @@ srv_g_bivariate <- function(id,
     anl_merged_input <- teal.transform::merge_expression_srv(
       selector_list = selector_list,
       datasets = data,
-      join_keys = join_keys(data)
+      join_keys = teal.data::join_keys(data)
     )
 
     anl_merged_q <- reactive({

diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -447,7 +447,7 @@ srv_distribution <- function(id,
     anl_merged_input <- teal.transform::merge_expression_srv(
       selector_list = selector_list,
       datasets = data,
-      join_keys = join_keys(data)
+      join_keys = teal.data::join_keys(data)
     )
 
     anl_merged_q <- reactive({

diff --git a/R/tm_g_response.R b/R/tm_g_response.R
@@ -275,7 +275,7 @@ srv_g_response <- function(id,
     anl_merged_input <- teal.transform::merge_expression_srv(
       selector_list = selector_list,
       datasets = data,
-      join_keys = join_keys(data)
+      join_keys = teal.data::join_keys(data)
     )
 
     anl_merged_q <- reactive({

diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -471,7 +471,7 @@ srv_g_scatterplot <- function(id,
     anl_merged_input <- teal.transform::merge_expression_srv(
       selector_list = selector_list,
       datasets = data,
-      join_keys = join_keys(data),
+      join_keys = teal.data::join_keys(data),
       merge_function = "dplyr::inner_join"
     )
 

diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
@@ -180,7 +180,7 @@ srv_g_scatterplotmatrix <- function(id, data, reporter, filter_panel_api, variab
 
     anl_merged_input <- teal.transform::merge_expression_srv(
       datasets = data,
-      join_keys = join_keys(data),
+      join_keys = teal.data::join_keys(data),
       selector_list = selector_list
     )
 

diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -356,7 +356,7 @@ srv_missing_data <- function(id, data, reporter, filter_panel_api, dataname, par
   moduleServer(id, function(input, output, session) {
     prev_group_by_var <- reactiveVal("")
     data_r <- data[[dataname]]
-    data_keys <- reactive(unlist(join_keys(data)[[dataname]]))
+    data_keys <- reactive(unlist(teal.data::join_keys(data)[[dataname]]))
 
     iv_r <- reactive({
       iv <- shinyvalidate::InputValidator$new()

diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -293,7 +293,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
     anl_merged_input <- teal.transform::merge_expression_srv(
       selector_list = reactive_select_input,
       datasets = data,
-      join_keys = join_keys(data),
+      join_keys = teal.data::join_keys(data),
       merge_function = "dplyr::inner_join"
     )
 
@@ -476,7 +476,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
           },
           env = list(
             dataname = as.name(dataname_first),
-            join_keys = as.character(join_keys(data)[[dataname_first]][[dataname_first]])
+            join_keys = as.character(teal.data::join_keys(data)[[dataname_first]][[dataname_first]])
           )
         )
       )

diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
@@ -215,7 +215,7 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,
 
     anl_merged_input <- teal.transform::merge_expression_srv(
       datasets = data,
-      join_keys = join_keys(data),
+      join_keys = teal.data::join_keys(data),
       selector_list = selector_list,
       merge_function = merge_function
     )