openxlsx
Read, Write and Edit xlsx Files

Package index
Search the openxlsx package
Vignettes
Functions
305
Source code
91
Man pages
80
Home
/
CRAN
/
openxlsx
/
tests/testthat/test-border_parsing.R

tests/testthat/test-border_parsing.R
In openxlsx: Read, Write and Edit xlsx Files 

context("Style Parsing")



test_that("parsing border xml", {
  wb <- loadWorkbook(file = system.file("extdata", "loadExample.xlsx", package = "openxlsx"))
  styles <- getStyles(wb = wb)


  expected_borders <- list(
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "medium",
    "medium", "medium", "medium", NULL, NULL, NULL, NULL, NULL,
    NULL, NULL, NULL, NULL, "thin", NULL, "thin", "thin", NULL,
    "thin", "thin", "thin", "thin", "thin", "thin", "thin", NULL,
    "thin", "thin", "medium", "medium", "medium", "medium", "thin",
    "medium", "medium", "thin", NULL, "medium", "medium", "medium",
    "thin", "thin", "medium", "medium", "thin", "thin", "thick",
    NULL, "thick", "thick", "thick", NULL, NULL, NULL, NULL,
    NULL, "medium", "medium", NULL, "medium", "mediumDashed",
    "mediumDashed", "mediumDashed", NULL, NULL, NULL, NULL, NULL,
    NULL
  )

  expect_equal(expected_borders, sapply(styles, "[[", "borderBottom"))


  expected_borders <- list(
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
    NULL, NULL, NULL, NULL, NULL, "thin", "thin", "thin", NULL,
    NULL, NULL, NULL, "medium", NULL, NULL, NULL, NULL, NULL,
    "thin", NULL, "thin", "thick", NULL, "medium", "thin", "thin",
    "thin", "thin", "thick", "thick", "thin", "thin", "thin",
    "medium", "medium", "thin", "thick", "thick", "medium", "thin",
    "thick", "thick", "medium", "thin", "thin", "medium", "thin",
    "thin", "thin", "medium", "medium", "medium", NULL, NULL,
    NULL, NULL, NULL, NULL, "mediumDashed", "mediumDashed", "mediumDashed",
    NULL, NULL, NULL, NULL, NULL, NULL
  )

  expect_equal(expected_borders, sapply(styles, "[[", "borderTop"))



  expected_borders <- list(
    NULL, NULL, NULL, NULL, NULL, NULL, "medium", NULL, "medium",
    NULL, NULL, NULL, NULL, NULL, NULL, "thin", NULL, NULL, "thin",
    NULL, NULL, "thin", "medium", NULL, NULL, NULL, NULL, "thin",
    "thin", "thin", NULL, "thin", NULL, NULL, NULL, "thin", "medium",
    "thin", "thin", "thin", "thin", "medium", "thin", "thin",
    NULL, "thin", "thick", "thin", "thick", "thick", "thin",
    "thin", "thin", "thin", "thick", NULL, "thin", "thin", "thin",
    "medium", NULL, NULL, "medium", NULL, "medium", NULL, "medium",
    NULL, "mediumDashed", NULL, NULL, NULL, NULL, NULL, NULL,
    NULL, NULL
  )

  expect_equal(expected_borders, sapply(styles, "[[", "borderLeft"))


  expected_borders <- list(
    NULL, NULL, NULL, NULL, NULL, "medium", NULL, "medium",
    NULL, NULL, NULL, "medium", NULL, NULL, NULL, NULL, NULL,
    "thin", NULL, NULL, "thin", NULL, NULL, NULL, "thin", NULL,
    "thin", NULL, "thin", "thin", "thin", "thin", "thick", NULL,
    "thick", "medium", "thin", "thin", "thin", "thin", "medium",
    "thin", "thin", "medium", NULL, "medium", "thin", "thin",
    "medium", "medium", "thin", "thick", "medium", "medium",
    "thin", "medium", "thin", NULL, "thick", NULL, NULL, "medium",
    NULL, "medium", NULL, NULL, NULL, "medium", NULL, NULL, "mediumDashed",
    NULL, NULL, NULL, NULL, NULL, NULL
  )

  expect_equal(expected_borders, sapply(styles, "[[", "borderRight"))



  ## COLOURS
  expected_borders <- list(
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), NULL, NULL, NULL,
    NULL, NULL, NULL, NULL, NULL, NULL, structure(list(theme = "6"), .Names = "theme"),
    NULL, structure(list(theme = "6"), .Names = "theme"), structure(list(
      theme = "6"
    ), .Names = "theme"), NULL, structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), NULL, structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "3"
    ), .Names = "theme"), structure(list(theme = "3"), .Names = "theme"),
    structure(list(theme = "3"), .Names = "theme"), structure(list(
      theme = "6"
    ), .Names = "theme"), structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(theme = "6"), .Names = "theme"), structure(list(
      theme = "6"
    ), .Names = "theme"), structure(list(indexed = "64"), .Names = "indexed"),
    NULL, structure(list(theme = "6"), .Names = "theme"), structure(list(
      theme = "7\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(theme = "7\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "9\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(theme = "9\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    NULL, structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    NULL, NULL, NULL, NULL, NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, NULL, NULL, NULL, NULL, NULL
  )

  expect_equal(expected_borders, sapply(styles, "[[", "borderBottomColour"))


  expected_borders <- list(
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
    NULL, NULL, NULL, NULL, NULL, structure(list(theme = "6"), .Names = "theme"),
    structure(list(theme = "6"), .Names = "theme"), structure(list(
      theme = "6"
    ), .Names = "theme"), NULL, NULL, NULL, NULL,
    structure(list(indexed = "64"), .Names = "indexed"), NULL,
    NULL, NULL, NULL, NULL, structure(list(indexed = "64"), .Names = "indexed"),
    NULL, structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    NULL, structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "6"
    ), .Names = "theme"), structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(theme = "7\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(theme = "9\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, NULL, NULL, NULL, NULL, NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, NULL, NULL, NULL, NULL, NULL
  )

  expect_equal(expected_borders, sapply(styles, "[[", "borderTopColour"))



  expected_borders <- list(
    NULL, NULL, NULL, NULL, NULL, NULL, structure(list(indexed = "64"), .Names = "indexed"),
    NULL, structure(list(indexed = "64"), .Names = "indexed"),
    NULL, NULL, NULL, NULL, NULL, NULL, structure(list(theme = "6"), .Names = "theme"),
    NULL, NULL, structure(list(theme = "6"), .Names = "theme"),
    NULL, NULL, structure(list(theme = "6"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), NULL,
    NULL, NULL, NULL, structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), NULL, structure(list(
      indexed = "64"
    ), .Names = "indexed"), NULL, NULL, NULL,
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      theme = "3"
    ), .Names = "theme"), structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "6"
    ), .Names = "theme"), structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), NULL,
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    NULL, structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, structure(list(indexed = "64"), .Names = "indexed"),
    NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL
  )

  expect_equal(expected_borders, sapply(styles, "[[", "borderLeftColour"))



  expected_borders <- list(
    NULL, NULL, NULL, NULL, NULL, structure(list(indexed = "64"), .Names = "indexed"),
    NULL, structure(list(indexed = "64"), .Names = "indexed"),
    NULL, NULL, NULL, structure(list(indexed = "64"), .Names = "indexed"),
    NULL, NULL, NULL, NULL, NULL, structure(list(theme = "6"), .Names = "theme"),
    NULL, NULL, structure(list(theme = "6"), .Names = "theme"),
    NULL, NULL, NULL, structure(list(theme = "6"), .Names = "theme"),
    NULL, structure(list(indexed = "64"), .Names = "indexed"),
    NULL, structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    NULL, structure(list(theme = "5\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(theme = "3"), .Names = "theme"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      theme = "6"
    ), .Names = "theme"), structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      theme = "6"
    ), .Names = "theme"), NULL, structure(list(
      theme = "6"
    ), .Names = "theme"), structure(list(indexed = "64"), .Names = "indexed"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      theme = "7\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(theme = "7\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    structure(list(theme = "9\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(theme = "9\" tint=\"-0.249977111117893"), .Names = "theme"),
    structure(list(indexed = "64"), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), structure(list(
      indexed = "64"
    ), .Names = "indexed"), NULL, structure(list(
      theme = "5\" tint=\"-0.249977111117893"
    ), .Names = "theme"),
    NULL, NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, NULL, NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, NULL, structure("9\" tint=\"-0.249977111117893", .Names = "theme"),
    NULL, NULL, NULL, NULL, NULL, NULL
  )

  expect_equal(expected_borders, sapply(styles, "[[", "borderRightColour"))
})

Try the openxlsx package in your browser

Any scripts or data that you put into this service are public.

openxlsx documentation built on Feb. 16, 2023, 6:47 p.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close