From 387086968dd53f545d1957e16ccb18fc3ad46dcd Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Thu, 9 Nov 2023 15:21:35 +0100
Subject: [PATCH] Remove typo

---
 R/get_cam_op.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/get_cam_op.R b/R/get_cam_op.R
index 9dcc34aa..7308c339 100644
--- a/R/get_cam_op.R
+++ b/R/get_cam_op.R
@@ -146,7 +146,7 @@ get_cam_op <- function(package = NULL,
         "it must be one of the deployments column names."
       )
     )
-    camera_values <- package$data$deployments[[session_col]]
+    camera_values <- package$data$deployments[[camera_col]]
     camera_values <- camera_values[!is.na(camera_values)]
     assertthat::assert_that(
       all(!stringr::str_detect(string = camera_values,