check input

jpquast · Feb 19, 2024 · 516d710 · 516d710
1 parent 6416e65
commit 516d710
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/qc_sequence_coverage.R b/R/qc_sequence_coverage.R
@@ -47,6 +47,12 @@ qc_sequence_coverage <- function(data,
                                  coverage,
                                  sample = NULL,
                                  interactive = FALSE) {
+
+  # Validate inputs
+  if (!all(c(protein_identifier, coverage) %in% colnames(data))) {
+    stop("Column names for protein_identifier and coverage must exist in the dataset.")
+  }
+
   result <- data %>%
     dplyr::distinct({{ protein_identifier }}, {{ coverage }}, {{ sample }}) %>%
     tidyr::drop_na({{ coverage }}) %>%