#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.