SCM

SCM Repository

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

Diff of /trunk/tm/R/textdoccol.R

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

revision 860, Fri Jul 18 05:05:20 2008 UTC revision 861, Thu Jul 24 09:55:09 2008 UTC
# Line 185  Line 185 
185                            meta(result, tag = "lazyTmMap", type = "corpus") <- lazyTmMap                            meta(result, tag = "lazyTmMap", type = "corpus") <- lazyTmMap
186                        }                        }
187                    }                    }
188                      else {
189                          result@.Data <- if (clusterAvailable())
190                              parLapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object))
191                    else                    else
192                        result@.Data <- lapply(object, FUN, ..., DMetaData = DMetaData(object))                            lapply(object, FUN, ..., DMetaData = DMetaData(object))
193                      }
194                }                }
195                return(result)                return(result)
196            })            })
# Line 271  Line 275 
275            function(object, ..., FUN = searchFullText, doclevel = TRUE) {            function(object, ..., FUN = searchFullText, doclevel = TRUE) {
276                if (!is.null(attr(FUN, "doclevel")))                if (!is.null(attr(FUN, "doclevel")))
277                    doclevel <- attr(FUN, "doclevel")                    doclevel <- attr(FUN, "doclevel")
278                if (doclevel)                if (doclevel) {
279                      if (clusterAvailable())
280                          return(object[parSapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object))])
281                      else
282                    return(object[sapply(object, FUN, ..., DMetaData = DMetaData(object))])                    return(object[sapply(object, FUN, ..., DMetaData = DMetaData(object))])
283                  }
284                else                else
285                    return(object[FUN(object, ...)])                    return(object[FUN(object, ...)])
286            })            })
# Line 283  Line 291 
291            function(object, ..., FUN = searchFullText, doclevel = TRUE) {            function(object, ..., FUN = searchFullText, doclevel = TRUE) {
292                if (!is.null(attr(FUN, "doclevel")))                if (!is.null(attr(FUN, "doclevel")))
293                    doclevel <- attr(FUN, "doclevel")                    doclevel <- attr(FUN, "doclevel")
294                if (doclevel)                if (doclevel) {
295                      if (clusterAvailable())
296                          return(parSapply(snow::getMPIcluster(), object, FUN, ..., DMetaData = DMetaData(object)))
297                      else
298                    return(sapply(object, FUN, ..., DMetaData = DMetaData(object)))                    return(sapply(object, FUN, ..., DMetaData = DMetaData(object)))
299                  }
300                else                else
301                    return(FUN(object, ...))                    return(FUN(object, ...))
302            })            })

Legend:
Removed from v.860  
changed lines
  Added in v.861

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