R/misc.R

In LCBC-UiO/Conversions: Collection of functions that convert certain RAW data in the LCBC database

ds_calc_total <- function(forward, backward){
  forward + backward
}

ds_calc_ratio <- function(forward, backward){
  backward/forward
}

cvlt_a_calc <- function(data, cols = dplyr::matches("CVLT_A[1-5]")){

  mutate(data,
         tmp = ifelse(!is.na(CVLT_A1), 
                      dplyr::select(., {{cols}}) %>% rowSums(.,na.rm=T),
                      CVLT_A_Total)
  )
  data$tmp
}

delay_days_calc <- function(data, test_date){

  dplyr::mutate(data,
         tmp =  ifelse(!is.na( {{test_date}} ), 
                       {{test_date}}-Test_Date, 
                       DelayedMem_Days)
  )
  data$tmp
}


## quiets concerns of R CMD check
if(getRversion() >= "2.15.1"){
  utils::globalVariables(c("CVLT_A1", "CVLT_A_Total", "DelayedMem_Days","Test_Date"))
}