SCM

SCM Repository

[tm] Diff of /pkg/R/textdoccol.R
ViewVC logotype

Diff of /pkg/R/textdoccol.R

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

revision 869, Sat Nov 8 09:16:37 2008 UTC revision 870, Mon Nov 10 15:29:22 2008 UTC
# Line 199  Line 199 
199                    }                    }
200                    else {                    else {
201                        result@.Data <- if (clusterAvailable())                        result@.Data <- if (clusterAvailable())
202                            parLapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object))                            snow::parLapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object))
203                        else                        else
204                            lapply(object, FUN, ..., DMetaData = DMetaData(object))                            lapply(object, FUN, ..., DMetaData = DMetaData(object))
205                    }                    }
# Line 289  Line 289 
289                    doclevel <- attr(FUN, "doclevel")                    doclevel <- attr(FUN, "doclevel")
290                if (doclevel) {                if (doclevel) {
291                    if (clusterAvailable())                    if (clusterAvailable())
292                        return(object[parSapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object))])                        return(object[snow::parSapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object))])
293                    else                    else
294                        return(object[sapply(object, FUN, ..., DMetaData = DMetaData(object))])                        return(object[sapply(object, FUN, ..., DMetaData = DMetaData(object))])
295                }                }
# Line 305  Line 305 
305                    doclevel <- attr(FUN, "doclevel")                    doclevel <- attr(FUN, "doclevel")
306                if (doclevel) {                if (doclevel) {
307                    if (clusterAvailable())                    if (clusterAvailable())
308                        return(parSapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object)))                        return(snow::parSapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object)))
309                    else                    else
310                        return(sapply(object, FUN, ..., DMetaData = DMetaData(object)))                        return(sapply(object, FUN, ..., DMetaData = DMetaData(object)))
311                }                }

Legend:
Removed from v.869  
changed lines
  Added in v.870

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