From 516d710d0b02143464f4ef017a90b79f207b5459 Mon Sep 17 00:00:00 2001
From: Elena Krismer <70535771+elena-krismer@users.noreply.github.com>
Date: Mon, 19 Feb 2024 14:12:15 +0100
Subject: [PATCH] check input

---
 R/qc_sequence_coverage.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/R/qc_sequence_coverage.R b/R/qc_sequence_coverage.R
index 61ee21b4..1f58c6f3 100644
--- 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 }}) %>%