Example code from matplotVis() for healthvis package in R

matplotVis-excerpt.R

  require(RJSONIO)
  classes <-sapply(data, class)
  
  nr <- nrow(data)
  cn <- colnames(data)
  ll <- vector("list", length=nr)
  for (irow in 1:nr) ll[[irow]] <- data[irow,]
  
  dropouts <- cn[classes != "numeric"]
  n <- sum(classes=="numeric")
  js <- toJSON(ll, pretty=TRUE)
#   f <- file("Overlap_Statistics.json")
#   cat(js, file=f)
#   close(f)

  if (length(dropouts) == 1) dropouts <- list(dropouts)
  # Parameters to pass to javascript
  d3Params <- list(json=js,
                   dropouts=dropouts,
                   n = n,
                   ...)
  
  # Form input types and ranges/options
  varType <- c("factor")
  
  varList <- list("variable" = dropouts)