Commits

Faheem Mitha committed 76a2852

Update patches/gtableaddgrob.diff

  • Participants
  • Parent commits aaf05bd

Comments (0)

Files changed (1)

File patches/gtableaddgrob.diff

 Index: gtable-0.1.2/R/add-grob.r
 ===================================================================
---- gtable-0.1.2.orig/R/add-grob.r	2013-06-14 03:06:09.000000000 +0530
-+++ gtable-0.1.2/R/add-grob.r	2013-06-14 03:26:59.000000000 +0530
+--- gtable-0.1.2.orig/R/add-grob.r	2013-06-14 03:38:20.000000000 +0530
++++ gtable-0.1.2/R/add-grob.r	2013-06-14 03:48:50.000000000 +0530
 @@ -20,8 +20,16 @@
  #' @param name name of the grob - used to modify the grob name before it's
  #'   plotted.
    stopifnot(is.gtable(x))
    if (is.grob(grobs)) grobs <- list(grobs)
    stopifnot(is.list(grobs))
-@@ -61,9 +69,19 @@
+@@ -61,9 +69,22 @@
      clip = clip, name = name, 
      stringsAsFactors = FALSE)
    stopifnot(length(grobs) == nrow(layout))
 -  
 +
-+  print("  stopifnot(length(grobs) == nrow(layout)) finished")
++  print("stopifnot(length(grobs) == nrow(layout)) finished")
 +  print("x")
 +  print(str(x))
++  print("grobs")
++  print(str(grobs))
++  ## problem here
    x$grobs <- c(x$grobs, grobs)
 +  print("x$grobs <- c(x$grobs, grobs) finished")
 +  print("x")