unionFindFn: Combine findFn Objects

Description

Combines to findFn objects into a new findFn object with only one row for any help page duplicated between the two. unionFindFn removes duplicate entries. intersectFindFn keeps only the duplicates.

Usage

unionFindFn(e1, e2, sortby=NULL)
intersectFindFn(e1, e2, sortby=NULL)
# S3 method for findFn
Ops(e1,e2)
# This supports "|" for "unionFindFn"
# and "&" for "intersectFindFn".

Arguments

e1, e2

objects of class findFn.

sortby

Optional sortby argument used by sortFindFn and findFn. Default is the sortby argument in attr(e1, 'call').

Value

an object with class c('findFn', 'data.frame') as returned by sortFindFn and findFn.

Details

1. e12 <- rbind(e1, e2)

2. For any (Package, Function) appearing in both e1 and e2, the row with the largest Score is retained and the other is deleted.

3. Apply sortFindFn to the rebuild the summary and sort the result as desired.

4. attr(e12, 'matches') <- c(attr(e1, 'matches'), attr(e2, 'matches'))

Examples

Run this code

# NOT RUN {
des1 <- findFn('differential equations', 1)
de1 <- findFn('differential equation', 1)
# each retrieves 1 page of 20 hits
# but not the same 20

de.s <- unionFindFn(des1, de1)
# combines the two, eliminating duplicates.

# or the sorter version:
de.s. <- des1 | de1
# }
# NOT RUN {
all.equal(de.s, de.s.)
# }
# NOT RUN {
# }
# NOT RUN {
# Keep only the common entries.
de2 <- intersectFindFn(des1, de1)
de2. <- des1 & de1
# }
# NOT RUN {
all.equal(de2, de2.)
# }
# NOT RUN {
# summary and print still work with the combined object.
summary(de.s)
if(!fda::CRAN()){
  de.s
}

summary(de2)
if(!fda::CRAN()){
  de2
}

# }
# NOT RUN {
# }