R/rename.R

In yonicd/noplyr: Use dplyr and tidyr without the dependency overhead

#' @title rename variables by name
#' @description Mimics dplyr::rename using base R and rlang
#' @param .data data.frame
#' @param ... variables to rename
#' @return data.frame
#' @examples
#' airquality%>%
#' b_rename(tmp = Temp,day = Day)%>%
#' head()
#' @seealso
#'  \code{\link[rlang]{quotation}}
#' @rdname b_rename
#' @export
#' @author Jonathan Sidi
#' @importFrom rlang quos quo_squash
b_rename <- function(.data,...){

  FNS <- lapply(rlang::quos(...),rlang::quo_squash)

  EXPRS <- lapply(names(FNS),function(x){
    c(x,deparse(FNS[[x]]))
  })

  NAMES <- do.call(rbind,EXPRS)

  for(i in 1:nrow(NAMES)){
    names(.data)[match(NAMES[i,2],names(.data))] <- NAMES[i,1]
  }

  .data


}