SCM

SCM Repository

[latticeextra] Diff of /pkg/R/mergeTrellisLegends.R
ViewVC logotype

Diff of /pkg/R/mergeTrellisLegends.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 193, Thu Dec 31 10:45:11 2015 UTC revision 194, Fri Jan 1 11:17:13 2016 UTC
# Line 33  Line 33 
33      if (is.null(b))      if (is.null(b))
34          return(a)          return(a)
35      if (!inherits(a$fun, "grob")) {      if (!inherits(a$fun, "grob")) {
36          fun <- a$fun          ## fun <- a$fun
37          if (is.character(a$fun)) a$fun <- as.symbol(a$fun)          if (is.character(a$fun)) a$fun <- as.symbol(a$fun)
38          a$fun <- eval(as.call(c(a$fun, a$args)), getNamespace("lattice"))          a$fun <- eval(as.call(c(a$fun, a$args)), getNamespace("lattice"))
39      }      }

Legend:
Removed from v.193  
changed lines
  Added in v.194

R-Forge@R-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge