R/diagonalize.R

In ianmoran11/mmtable2: Create and combine tables with a ggplot2/patchwork syntax

#' Remove adjacent repeats in a dataframe
#'
#' @param df a data frame
#' @param var_char the column to be diagonalized
#' @return data frame
#' @export
#' @importFrom rlang :=
#' @importFrom magrittr %>%
#' @importFrom dplyr if_else
#' @importFrom dplyr lag
#' @importFrom dplyr mutate
#' @importFrom rlang sym


diagonalize <-  function(df,var_char){

 # browser()

  var <- sym(var_char)

  df %>%
    mutate(!!var := as.character(!!var)) %>%
    mutate(!!var := if_else(!!var == lag(!!var,1)," ",!!var,!!var))
}