Merge branch 'develop' of https://github.com/OHDSI/Capr into develop

R/attributes-op.R

@@ -350,6 +350,7 @@ age <- function(op) {
 #' the op logic.
 #' @param op   an opAttribute object that is either numeric or integer that defines the logical
 #'             operation used to determine eligible number of days of supply
+#' @return An attribute that can be used in a cohort definition
 #' @export
 daysOfSupply <- function(op) {
 
@@ -369,6 +370,7 @@ daysOfSupply <- function(op) {
 #' op logic.
 #' @param op   an opAttribute object that is either numeric or integer that defines the logical
 #'             operation used to determine eligible number of refills
+#' @return An attribute that can be used in a cohort definition
 #' @export
 drugRefills <- function(op) {
 
@@ -392,6 +394,7 @@ drugRefills <- function(op) {
 #' determined by the op logic.
 #' @param op   an opAttribute object that is either numeric or integer that defines the logical
 #'             operation used to determine eligible patient age
+#' @return An attribute that can be used in a cohort definition
 #' @export
 valueAsNumber <- function(op) {
 
@@ -413,6 +416,7 @@ valueAsNumber <- function(op) {
 #' determined by the op logic.
 #' @param op   an opAttribute object that is either numeric or integer that defines the logical
 #'             operation used to determine eligible range high
+#' @return An attribute that can be used in a cohort definition
 #' @export
 rangeHigh <- function(op) {
 
@@ -434,6 +438,7 @@ rangeHigh <- function(op) {
 #' determined by the op logic.
 #' @param op   an opAttribute object that is either numeric or integer that defines the logical
 #'             operation used to determine eligible range low
+#' @return An attribute that can be used in a cohort definition
 #' @export
 rangeLow <- function(op) {
 
@@ -457,6 +462,7 @@ rangeLow <- function(op) {
 #' op logic.
 #' @param op   an opAttribute object that is either numeric or integer that defines the logical
 #'             operation used to determine eligible quantity
+#' @return An attribute that can be used in a cohort definition
 #' @export
 drugQuantity <- function(op) {
 
@@ -479,6 +485,7 @@ drugQuantity <- function(op) {
 #' Function that creates a start date attribute
 #' @param op   an opAttribute object must be a date that defines the logical operation used to
 #'             determine eligible start dates
+#' @return An attribute that can be used in a cohort definition
 #' @export
 startDate <- function(op) {
 
@@ -497,6 +504,7 @@ startDate <- function(op) {
 #' Function that creates a end date attribute
 #' @param op   an opAttribute object must be a date that defines the logical operation used to
 #'             determine eligible end dates
+#' @return An attribute that can be used in a cohort definition
 #' @export
 endDate <- function(op) {