From 2e298f569fe3b006b78d2acd9903f78839f61d0e Mon Sep 17 00:00:00 2001
From: egillax <egillax@gmail.com>
Date: Thu, 17 Oct 2024 14:35:31 +0200
Subject: [PATCH] fix tidyselect

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

diff --git a/R/ExternalValidatePlp.R b/R/ExternalValidatePlp.R
index dc735b77..aca76de6 100644
--- a/R/ExternalValidatePlp.R
+++ b/R/ExternalValidatePlp.R
@@ -697,7 +697,7 @@ getData <- function(design, database, outputFolder, downloadTasks) {
     dplyr::mutate(taskId = dplyr::row_number(),
                   collapsed = sapply(.data$restrictPlpDataSettings, paste0, collapse = "|")) %>%
     dplyr::filter(.data$collapsed == paste0(design$restrictPlpDataSettings, collapse = "|")) %>%
-    dplyr::select(-.data$collapsed)
+    dplyr::select("collapsed")
   
   databaseName <- database$cdmDatabaseName
   database$targetId <- task$targetId