SCM

SCM Repository

[matrix] Diff of /pkg/R/AllGeneric.R
ViewVC logotype

Diff of /pkg/R/AllGeneric.R

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

revision 2023, Wed Aug 1 20:26:21 2007 UTC revision 2024, Thu Aug 2 07:22:44 2007 UTC
# Line 81  Line 81 
81    
82    
83  ## "Summary"  ## "Summary"
84  if(!is.primitive(max)) {  if(!is.primitive(max)) { ## or another R 2.6.0 solution
85      ## --- some hoop jumping that is needed for R versions <= 2.5.x      ## --- some hoop jumping that is needed at least for R versions <= 2.5.x
86    
87  .max_def <- function(x, ..., na.rm = FALSE) base::max(x, ..., na.rm = na.rm)  .max_def <- function(x, ..., na.rm = FALSE) base::max(x, ..., na.rm = na.rm)
88  .min_def <- function(x, ..., na.rm = FALSE) base::min(x, ..., na.rm = na.rm)  .min_def <- function(x, ..., na.rm = FALSE) base::min(x, ..., na.rm = na.rm)
# Line 107  Line 107 
107  setGeneric("all", function(x, ..., na.rm = FALSE) standardGeneric("all"),  setGeneric("all", function(x, ..., na.rm = FALSE) standardGeneric("all"),
108             useAsDefault = .all_def, group="Summary")             useAsDefault = .all_def, group="Summary")
109    
   
110  } # end{hoop jumping}  } # end{hoop jumping}
111    
112    
113  ## Add '...' so our methods can add  'sparseResult':  ## Add '...' so our methods can add  'sparseResult':
114  setGeneric("colSums",  setGeneric("colSums",
115             def = function(x, na.rm = FALSE, dims = 1, ...) standardGeneric("colSums"),             def = function(x, na.rm = FALSE, dims = 1, ...) standardGeneric("colSums"),

Legend:
Removed from v.2023  
changed lines
  Added in v.2024

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge