tests/testthat/test-style_replacing.R

# context("Replacing styles")
# 
# 
# 
# test_that("Replace styles", {
#   
# #   tempFile <- file.path(tempdir(), "temp.xlsx")
# #   wb <- loadWorkbook(file = file.path(path.package("openxlsx"), "loadExample.xlsx"))
# #   
# #   ## create a new style and replace style 2
# #   
# #   newStyle <- createStyle(fgFill = "#FF0000")
# #   
# #   ## replace style 2
# #   getStyles(wb) ## prints styles
# #   replaceStyle(wb, 87, newStyle = newStyle)
# # 
# #   rm(wb)
#   
# })
awalker89/openxlsx documentation built on May 11, 2019, 4:09 p.m.