R/replace_list_elements.R

In ronkeizer/vpc: Create Visual Predictive Checks

#' 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
}