R/scale_by_group.R

In AndersT123/rfuncs:

#' Scale coloumns by group Function
#'
#' This function allows you to scale/standardize columns on grouped dataframes.
#' @param .data: A dataframe/tibble. Numeric columns must be selected
#' @keywords scale(), group_by()
#' @export
#' @import dplyr
#' @examples
#' scale_by_group()

library(dplyr)
scale_by_group <- function(.data, ...){
  if(dplyr::is.grouped_df(.data)){
    return(dplyr::do(.data, scale_by_group(.)))
  }
  return(scale(.data))
}