tests/testthat/helpers.R

In tkonopka/Rcssplot: Styling of Graphics using Cascading Style Sheets

## Some helper functions for tests

## create a path to a pdf file, remove a file if present
testfile = function(x) {
  result = file.path("figures", paste0(x, ".pdf"))
  if (file.exists(result)) {
    unlink(result)
  }
  result
}


## convert a string into a vector of characters
tochars = function(x) {
  unlist(strsplit(x, ""))
}


# convert a string into a chardata data frame
tochardata = function(x) {
  data.frame(char=tochars(x), line=1, stringsAsFactors=FALSE)
}


## write some text to a temporary file
## removes existing file, writes, returns the filename
tofile = function(x, filename=file.path("data", "style.tmp.Rcss")) {
  if (file.exists(filename)) {
    unlink(filename)
  }
  write(x, filename)
  filename
}