covariate_last_obs_only.R

#' Use only last observed covariate values
#'
#' @param covariates covariates object
#' @export
#' @return List containing same elements as input covariate object but including only the last value for each covariate
covariate_last_obs_only <- function(covariates) {
  for(lab in names(covariates)) {
    covariates[[lab]]$value <- utils::tail(covariates[[lab]]$value, 1)
    covariates[[lab]]$times <- 0
    if(!is.null(covariates[[lab]]$value)) {
      covariates[[lab]]$unit <- utils::tail(covariates[[lab]]$unit, 1)
    }
  }
  return(covariates)
}