#' Replace list elements by name
#'
#' @param list original list
#' @param replacement replacement list
#' @details
#' Finds and replaces list elements by name and throws an error if an
#' element is not available in the original list. This is a local duplicate
#' of the PKPDmisc copy for the VPC package to reduce dependency on PKPDmisc
#' at this time.
#' @examples
#' \dontrun{
#' list <- list(ipred = "ipred", dv = "dv", idv = "idv", "pred" = "pred")
#' replacement <- list(dv = "conc", idv = "time")
#' list <- replace_list_elements(list, replacement)
#' }
#' @export
replace_list_elements <- function(list, replacement) {
missing <- which(!names(replacement) %in% names(list))
if(length(missing) != 0) {
warning(paste("Nothing named: ", paste(names(replacement)[missing], collapse= ", ", "found to replace") ))
replacement <- replacement[-missing]
}
list[names(replacement)] <- lapply(names(replacement), function(x) list[[x]] <- replacement[[x]])
list
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.