inst/unitTests/shared.R

In AnalysisPageServer: A framework for sharing interactive data and plots from R through the web

library(AnalysisPageServer)
library(XML)
library(RUnit)

.dev.null <- if(platformIsWindows()) "NUL" else "/dev/null"

safeGetPlotPoints <- function(svgdoc)  {
  .ppChildren <- function(parentNode)  {
    Filter(function(node)  {
      a <- xmlAttrs(node)
      "class" %in% names(a) && a[["class"]] == "plot-point"
    }, parentNode)
  }

  parentNode <- xmlChildren(xmlChildren(xmlChildren(svgdoc)[[1]])[[2]])
  list1 <- .ppChildren(parentNode)
  ## this worked
  if(length(list1) > 0)
    return(list1)

  try({
    ## gracefully consider that it might be  a later format
    if(length(list1) == 0)  {
      list2 <- .ppChildren(xmlChildren(parentNode[[2]]))
      return(list2)
    }
  }, silent = TRUE)

  return(list1)
}


# return n x 2 matrix of x,y plot coordinates of points
# or special value NULL if it doesn't look like plot points (should have d tag starting with M)
get.plot.element.coords <- function(pp)  {
  pp.d <- sapply(pp, function(p) XML:::xmlAttrs(p)["d"])
  ## Do a string split
  pp.ss <- strsplit(pp.d, " ")
  
  ## First piece of the string should be M ("move to" in postscript, I think)
  ps.command <- sapply(pp.ss, "[", 1)
  if(any(is.na(ps.command) | ps.command != "M")) return(NULL)
  ## Now get the coodaintes of the points
  ## plot points in image coordinates
  t(sapply(lapply(pp.ss, "[", 2:3), as.numeric))
}