R/utils.R

In niszet/stylex: Package for updating styles in docx file for making template

Defines functions diff_of_dfs pt_to_fontsize fontsize_to_pt

fontsize_to_pt <- function(sz){
  as.character(as.numeric(sz) / 2)
}

pt_to_fontsize <- function(pt){
  as.character(as.numeric(pt) * 2)
}

diff_of_dfs <- function(ref_df, new_df){
  d_df <- dplyr::setdiff(new_df, ref_df)
  d_df
}