From cb7cbb14e7d9343b44ccc480b809b054636b0e86 Mon Sep 17 00:00:00 2001
From: Lukas Vermeer <lukas@lukasvermeer.nl>
Date: Tue, 17 Jan 2023 20:57:42 +0100
Subject: [PATCH] Lowercase locations so they are excluded as controls even if
 supplied as uppercase.

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

diff --git a/R/MultiCell.R b/R/MultiCell.R
index 487e2c577..7ec80a875 100644
--- a/R/MultiCell.R
+++ b/R/MultiCell.R
@@ -811,7 +811,7 @@ GeoLiftMultiCell <- function(Y_id = "Y",
   GeoLiftResults <- list()
 
   for(cell in 1:k){
-    data_aux <- data %>% dplyr::filter(!(location %in% unlist(locations[-c(cell)]) ))
+    data_aux <- data %>% dplyr::filter(!(location %in% tolower(unlist(locations[-c(cell)])) ))
     aux <- GeoLift(Y_id = Y_id,
                    time_id = time_id,
                    location_id = location_id,