swank-media.R

   1 makeMediaReplResult <- function(value) {
   2   UseMethod("makeMediaReplResult")
   3 }
   4
   5 makeMediaReplResult.default <- function(value) {
   6   makeReplResult(value)
   7 }
   8
   9 makeMediaReplResult.trellis <- function(value) {
  10   filename <- tempfile("swank-media-")
  11   png(filename, width=320, height=200)
  12   print(value)
  13   dev.off()
  14   list(quote(`:write-image`), list(list(quote(`:type`), quote(png),
  15                                         quote(`:file`), filename)),
  16        deparse(value$call, nlines=1))
  17 }
  18
  19 makeMediaReplResult.numeric <- function(value) {
  20   string <- paste(deparse(value), sep="", collapse="\n")
  21   list(quote(`:write-string`), string, quote(`:repl-result`))
  22 }
  23 makeMediaReplResult.complex <- function(value) {
  24   string <- deparse(value)
  25   list(quote(`:write-string`), string, quote(`:repl-result`))
  26 }
  27
  28 makeMediaReplResult.array <- function(value) {
  29   makeMediaReplResult.default(value)
  30 }
  31 makeMediaReplResult.matrix <- function(value) {
  32   makeMediaReplResult.default(value)
  33 }
  34
  35 makeReplResultFunction <- makeMediaReplResult