R/addStyle.R

In kiwimic/prettyExcelExpoRt: Ultity tools for automation of task I use in my dailywork. Some of this are in polish language.

#' addStyle
#'
#' @param wbCon
#' @param style
#'
#' @return
#' @export
#'
#' @examples
addStyle <- function(wbCon,
                     style = "basic") {
  style <- xlsx::CellStyle(wbCon) +
    xlsx::Font(wbCon,
               heightInPoints = prettyExcelExpoRt::listOfStyles(style)$fontHeight,
               isBold=prettyExcelExpoRt::listOfStyles(style)$fontBold,
               isItalic=prettyExcelExpoRt::listOfStyles(style)$fontItalic,
               name=prettyExcelExpoRt::listOfStyles(style)$fontName,
               color=prettyExcelExpoRt::listOfStyles(style)$fontColor) +
    xlsx::Fill(backgroundColor = prettyExcelExpoRt::listOfStyles(style)$fillBackgroundColor,
               foregroundColor = prettyExcelExpoRt::listOfStyles(style)$fillForegroundColor,
               pattern = prettyExcelExpoRt::listOfStyles(style)$fillPattern) +
    xlsx::Border(color=prettyExcelExpoRt::listOfStyles(style)$borderColor,
                 position=prettyExcelExpoRt::listOfStyles(style)$borderPosition,
                 pen=prettyExcelExpoRt::listOfStyles(style)$borderPen) +
    xlsx::Alignment(h=prettyExcelExpoRt::listOfStyles(style)$alignmentH,
                    v = prettyExcelExpoRt::listOfStyles(style)$alignmentV)
  return(style)
}