R/zzz.R

In cubing: Rubik's Cube Solving

.onLoad <- function(libname, pkgname) {
  op <- options()
  op.cubing <- list(
    cubing.colors = c("ghostwhite","red","limegreen","yellow","orange","dodgerblue"),
	cubing.oll1 = list(character(0), c("R", "U", "B", "U'", "B'", "R'"), c("F", 
      "R", "U", "R'", "U'", "F'"), c("F", "U", "R", "U'", "R'", "F'"
      ), c("B", "U", "L", "U'", "L'", "B'"), c("L", "F", "U", "F'", 
      "U'", "L'"), c("L", "U", "F", "U'", "F'", "L'"), c("F", "R", 
      "U", "R'", "U'", "F'", "B", "U", "L", "U'", "L'", "B'")),
	cubing.oll2 = list(character(0), c("B2", "D", "B'", "U2", "B", "D'", "B'", 
      "U2", "B'"), c("R", "B", "L'", "B'", "R'", "B", "L", "B'"), c("R'", 
      "F", "R", "B'", "R'", "F'", "R", "B"), c("B", "U2", "B'", "U'", 
      "B", "U'", "B'"), c("R2", "D", "R'", "U2", "R", "D'", "R'", "U2", 
      "R'"), c("L'", "B", "L", "F'", "L'", "B'", "L", "F"), c("F", 
      "R", "B'", "R'", "F'", "R", "B", "R'"), c("F", "U", "F'", "U", 
      "F", "U2", "F'"), c("B", "L", "F'", "L'", "B'", "L", "F", "L'"
      ), c("L", "U2", "L'", "U'", "L", "U'", "L'"), c("F'", "L", "F", 
      "R'", "F'", "L'", "F", "R"), c("F", "U2", "F'", "U'", "F", "U'", 
      "F'"), c("R", "U2", "R'", "U'", "R", "U'", "R'"), c("B", "U2", 
      "B2", "U'", "B2", "U'", "B2", "U2", "B"), c("F2", "D", "F'", 
      "U2", "F", "D'", "F'", "U2", "F'"), c("F", "U2", "F'", "U'", 
      "F", "U", "F'", "U'", "F", "U'", "F'"), c("R", "U2", "R2", "U'", 
      "R2", "U'", "R2", "U2", "R"), c("L2", "D", "L'", "U2", "L", "D'", 
      "L'", "U2", "L'"), c("B'", "R", "B", "L'", "B'", "R'", "B", "L"
      ), c("R", "U", "R'", "U", "R", "U2", "R'"), c("L", "F", "R'", 
      "F'", "L'", "F", "R", "F'"), c("L", "U2", "L2", "U'", "L2", "U'", 
      "L2", "U2", "L"), c("R", "U2", "R'", "U'", "R", "U", "R'", "U'", 
      "R", "U'", "R'"), c("B", "U", "B'", "U", "B", "U2", "B'"), c("F", 
      "U2", "F2", "U'", "F2", "U'", "F2", "U2", "F"), c("L", "U", "L'", 
      "U", "L", "U2", "L'")),
	cubing.pll1 = list(character(0), c("L'", "B", "L'", "F2", "L", "B'", "L'", 
      "F2", "L2", "U'"), c("F'", "L", "F'", "R2", "F", "L'", "F'", 
      "R2", "F2", "U'"), c("B'", "R", "B'", "L2", "B", "R'", "B'", 
      "L2", "B2"), c("R'", "F", "R'", "B2", "R", "F'", "R'", "B2", 
      "R2", "U2"), c("R", "B'", "R'", "F", "R", "B", "R'", "F'", "R", 
      "B", "R'", "F", "R", "B'", "R'", "F'", "U"), c("R'", "F", "R'", 
      "B2", "R", "F'", "R'", "B2", "R2", "U'"), c("R", "B'", "R'", 
      "F", "R", "B", "R'", "F'", "R", "B", "R'", "F", "R", "B'", "R'", 
      "F'", "U2"), c("L'", "B", "L'", "F2", "L", "B'", "L'", "F2", 
      "L2"), "U", c("B'", "R", "B'", "L2", "B", "R'", "B'", "L2", "B2", 
      "U"), c("F'", "L", "F'", "R2", "F", "L'", "F'", "R2", "F2"), 
      c("B'", "R", "B'", "L2", "B", "R'", "B'", "L2", "B2", "U2"
      ), c("F'", "L", "F'", "R2", "F", "L'", "F'", "R2", "F2", 
      "U"), c("R", "B'", "R'", "F", "R", "B", "R'", "F'", "R", 
      "B", "R'", "F", "R", "B'", "R'", "F'", "U'"), c("R'", "F", 
      "R'", "B2", "R", "F'", "R'", "B2", "R2"), "U2", c("L'", "B", 
      "L'", "F2", "L", "B'", "L'", "F2", "L2", "U"), "U'", c("L'", 
      "B", "L'", "F2", "L", "B'", "L'", "F2", "L2", "U2"), c("F'", 
      "L", "F'", "R2", "F", "L'", "F'", "R2", "F2", "U2"), c("B'", 
      "R", "B'", "L2", "B", "R'", "B'", "L2", "B2", "U'"), c("R'", 
      "F", "R'", "B2", "R", "F'", "R'", "B2", "R2", "U"), c("R", 
      "B'", "R'", "F", "R", "B", "R'", "F'", "R", "B", "R'", "F", 
      "R", "B'", "R'", "F'")),
	cubing.pll2 = list(character(0), NULL, NULL, c("F2", "U", "F", "U", "F'", "U'", 
      "F'", "U'", "F'", "U", "F'"), c("F", "U'", "F", "U", "F", "U", 
      "F", "U'", "F'", "U'", "F2"), NULL, NULL, c("R'", "U'", "R2", 
      "U", "R", "U", "R'", "U'", "R", "U", "R", "U'", "R", "U'", "R'", 
      "U2"), c("R2", "U", "R", "U", "R'", "U'", "R'", "U'", "R'", "U", 
      "R'"), NULL, NULL, c("B2", "U", "B", "U", "B'", "U'", "B'", "U'", 
      "B'", "U", "B'"), c("R", "U'", "R", "U", "R", "U", "R", "U'", 
      "R'", "U'", "R2"), NULL, NULL, c("L2", "U", "L", "U", "L'", "U'", 
      "L'", "U'", "L'", "U", "L'"), c("R2", "U2", "R", "U2", "R2", 
      "U2", "R2", "U2", "R", "U2", "R2"), NULL, NULL, c("B", "U'", 
      "B", "U", "B", "U", "B", "U'", "B'", "U'", "B2"), c("L", "U'", 
      "L", "U", "L", "U", "L", "U'", "L'", "U'", "L2"), NULL, NULL, 
      c("F'", "U'", "F2", "U", "F", "U", "F'", "U'", "F", "U", 
      "F", "U'", "F", "U'", "F'", "U2"))
  )
  toset <- !(names(op.cubing) %in% names(op))
  if(any(toset)) options(op.cubing[toset])

  invisible()
}