R/RcppExports.R

In adheRenceRX: Assess Medication Adherence from Pharmaceutical Claims Data

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

#' Creates C++ loop 
#'
#' Meant to be a helper within date_check(), and subsequently propagate_date()
NULL

#' @param x Our date vector
#' @param y Our days supply vector
#' @return A new vector to be appended to a users dataframe with adjusted dates
NULL

.date_checkCpp <- function(x, y) {
    .Call('_adheRenceRX_date_checkCpp', PACKAGE = 'adheRenceRX', x, y)
}

#' C++ Helper for \code{episode_check()}
#'
#' Meant to be a C++ helper within episode_check() to improve speed
NULL

#' @param x Our gap vector
#' @param perm_gap An integer value representing the permissible gap in therapy, if the gap is greater than this number, a new episode will be created
#' @param init_rank An integer representing the initial ranking (What should we label episode 1?). The default is 1. 
#' @return A new vector labeling each rows corresponding episode of care to be appended to a users dataframe
NULL

.episode_checkCpp <- function(x, perm_gap, init_rank) {
    .Call('_adheRenceRX_episode_checkCpp', PACKAGE = 'adheRenceRX', x, perm_gap, init_rank)
}