From a19825981d0efbcacff2ab615289084db3b0c5e9 Mon Sep 17 00:00:00 2001
From: catalamarti <marticatalasabate@gmail.com>
Date: Mon, 13 Oct 2025 22:20:17 +0100
Subject: [PATCH] Fix example getPlConceptDefinitionSet()

---
 R/Phenotypes.R                   | 4 +++-
 man/getPlConceptDefinitionSet.Rd | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/R/Phenotypes.R b/R/Phenotypes.R
index 417cd6b5..fb758c4a 100644
--- a/R/Phenotypes.R
+++ b/R/Phenotypes.R
@@ -195,7 +195,9 @@ getPhenotypeLog <- function(cohortIds = NULL,
 #' A tibble.
 #'
 #' @examples
-#' getPhenotypeLog(cohortIds = c(1, 2))
+#' cohorts <- getPhenotypeLog()
+#' subsetIds <- cohorts$cohortId[1:3]
+#' getPlConceptDefinitionSet(cohortIds = subsetIds)
 #'
 #' @export
 getPlConceptDefinitionSet <-
diff --git a/man/getPlConceptDefinitionSet.Rd b/man/getPlConceptDefinitionSet.Rd
index a669b2de..851f975d 100644
--- a/man/getPlConceptDefinitionSet.Rd
+++ b/man/getPlConceptDefinitionSet.Rd
@@ -18,6 +18,8 @@ A tibble.
 Get conceptSets in cohorts
 }
 \examples{
-getPhenotypeLog(cohortIds = c(1, 2))
+cohorts <- getPhenotypeLog()
+subsetIds <- cohorts$cohortId[1:3]
+getPlConceptDefinitionSet(cohortIds = subsetIds)
 
 }