Suppressed "no visible binding for global variable" notes in register…

…() and filter_unchanged_expressions()
ruthkr · May 16, 2023 · fafbaf1 · fafbaf1
1 parent f1c3c2c
commit fafbaf1
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/R/process_data.R b/R/process_data.R
@@ -49,6 +49,13 @@ preprocess_data <- function(input, reference, query, scaling_method) {
 #'
 #' @noRd
 filter_unchanged_expressions <- function(all_data) {
+  # Suppress "no visible binding for global variable" note
+  gene_id <- NULL
+  accession <- NULL
+  expression_value <- NULL
+  sd <- NULL
+  exp_sd <- NULL
+
   # Calculate standard deviations
   gene_sds <- all_data[, .(exp_sd = sd(expression_value)), by = .(gene_id, accession)]
   discarded_genes <- unique(gene_sds[exp_sd <= 1e-16]$gene_id)

diff --git a/R/register.R b/R/register.R
@@ -49,6 +49,7 @@ register <- function(input,
   accession <- NULL
   timepoint <- NULL
   timepoint_reg <- NULL
+  timepoint_id <- NULL
   expression_value <- NULL
   replicate <- NULL