Value Matching with optional reversing of sub-parts of non-matching elements
This function provides a variant to match
, where initially non-matching elements of x
will be tested by decomposing non-matching elements, reversing the parts in front and after the separator sep
and re-matching.
If separator sep
does not occur, a warning will be issued, if it occurs more than once,
the parts before and after the first separartor will be used and a warning issued.
matchNamesWithReverseParts(x, y, sep = "-", silent = FALSE, callFrom = NULL)
x |
(character) first vector for match |
y |
(character) second vector for match |
sep |
(character) separator between elements |
silent |
(logical) suppress messages |
callFrom |
(character) allow easier tracking of message(s) produced |
index for matching (integer) x to y
tx1 <- c("a-b","a-c","d-a","d-b","b-c","d-c") tmp <- triCoord(4) tx2 <- paste(letters[tmp[,1]],letters[tmp[,2]],sep="-") ## Some matches won't be found, since 'a-d' got reversed to 'd-a', etc... match(tx1,tx1) matchNamesWithReverseParts(tx1,tx2)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.