add device exposure

OHDSI · May 16, 2024 · b935b5c · b935b5c
1 parent b0c61cb
commit b935b5c
Showing 1 changed file with 15 additions and 0 deletions.
diff --git 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