R/remove_attr.R

In hongqi0314/PRAuto.PMML: User defined functions to output a PMML file that is to be implemented in S1

#' Remove 'attr's from object
#'
#' Remove 'attr's from object so that functionality like 'filter' in "dplyr"
#' can be performed.
#'
#' @param obj An R object with different attributes.
#' @param attr_names Vector of character strings indicating names of the attributes
#'        to be removed
#'
#' @return An R object without the specified attr
#' @export
#'
#' @examples basisFICO_1 <- remove(basisFICO_1, 'knots')
remove_attr <- function(obj, attr_name) {
  attr(obj, attr_name) <- NULL
  return(obj)
}