SCM

SCM Repository

[latticeextra] Diff of /pkg/R/c.trellis.R
ViewVC logotype

Diff of /pkg/R/c.trellis.R

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

revision 197, Thu Apr 27 08:37:36 2017 UTC revision 198, Sun Apr 30 05:29:49 2017 UTC
# Line 1  Line 1 
1    
2  ##  ## Copyright (C) 2007 Felix Andrews <felix@nfrac.org>
 ## Copyright (c) 2007 Felix Andrews <felix@nfrac.org>  
3  ## GPL version 2 or newer  ## GPL version 2 or newer
4    
5    
# Line 185  Line 184 
184      obj1$panel.args <- c(obj1$panel.args, obj2$panel.args)      obj1$panel.args <- c(obj1$panel.args, obj2$panel.args)
185      obj1$packet.sizes <- c(obj1$packet.sizes, obj2$packet.sizes)      obj1$packet.sizes <- c(obj1$packet.sizes, obj2$packet.sizes)
186      ## some prepanel functions require a 'subscripts' argument in each 'panel.args'      ## some prepanel functions require a 'subscripts' argument in each 'panel.args'
187      if ("subscripts" %in% c(names(formals(obj1$prepanel.default)),      fargNames <- function(f) if (is.null(f)) NULL else names(formals(f))
188                              names(formals(obj1$prepanel)))) {      if ("subscripts" %in% c(fargNames(obj1$prepanel.default), fargNames(obj1$prepanel)))
189          for (i in seq_along(obj1$panel.args)) {      {
190              if ("subscripts" %in% names(obj1$panel.args[[i]]) == FALSE) {          for (i in seq_along(obj1$panel.args))
191            {
192                if (!("subscripts" %in% names(obj1$panel.args[[i]]))
193                {
194                  obj1$panel.args[[i]]$subscripts <- TRUE                  obj1$panel.args[[i]]$subscripts <- TRUE
195              }              }
196          }          }

Legend:
Removed from v.197  
changed lines
  Added in v.198

root@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