From b935b5ceb7c21f0669b337ac3b5c43b0aa6f6df4 Mon Sep 17 00:00:00 2001
From: "Lavallee,Dr.,Martin (MED MA) BIP-US-R"
 <martin.lavallee@boehringer-ingelheim.com>
Date: Thu, 16 May 2024 14:47:25 -0400
Subject: [PATCH] add device exposure

---
 R/query.R | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/R/query.R b/R/query.R
index 2231320d..19dd8c9c 100644
--- a/R/query.R
+++ b/R/query.R
@@ -136,6 +136,21 @@ drugExposure <- function(conceptSet, ...) {
         ...)
 }
 
+
+#' Query the drug domain
+#'
+#' @param conceptSet A drug concept set
+#' @param ... optional attributes
+#'
+#' @return A Capr Query
+#' @export
+deviceExposure <- function(conceptSet, ...) {
+
+  query(domain = "DeviceExposure",
+        conceptSet = conceptSet,
+        ...)
+}
+
 #' Query the measurement domain
 #'
 #' @param conceptSet A measurement concept set