R/aaa.R

In marquee: Markdown Parser and Renderer for R Graphics

bigpts_mod <- c(
  72/2.54, # cm
  72, # inches
  72/25.4, # mm
  72/72.27, # points
  12 * 72/72.27, # picas
  1, # bigpts
  (1238/1157) * (72/72.27), # dida
  12 * (1238/1157) * (72/72.27), # cicero
  (72/72.27) / 65536 # scaledpts
)
bigpts_mod_unit <- c(
  "cm",
  "inches",
  "mm",
  "points",
  "picas",
  "bigpts",
  "dida",
  "cicero",
  "scaledpts"
)

as_bigpts <- function(x, width = TRUE) {
  type <- grid::unitType(x)
  num <- as.numeric(x)
  val <- num * bigpts_mod[match(type, bigpts_mod_unit)]
  nas <- is.na(val) & !is.na(num)
  if (any(nas)) {
    val[nas] <- if (width) convertWidth(x[nas], "bigpts", TRUE) else convertHeight(x[nas], "bigpts", TRUE)
  }
  val
}