
Apply a function to a re-mapped data frame.
replyr_apply_f_mapped(d, f, nmap, ..., restrictMapIn = FALSE,
rmap = replyr::replyr_reverseMap(nmap), restrictMapOut = FALSE)
data.frame to work on
function to apply.
named list mapping with keys specifying new column names, and values as original column names.
force later arguments to bind by name
logical if TRUE restrict columns when mapping in.
reverse map (for after f is applied).
logical if TRUE restrict columns when mapping out.
# NOT RUN {
# an external function with hard-coded column names
DecreaseRankColumnByOne <- function(d) {
d$RankColumn <- d$RankColumn - 1
d
}
# our example data, with different column names
d <- data.frame(Sepal_Length=c(5.8,5.7),
Sepal_Width=c(4.0,4.4),
Species='setosa',rank=c(1,2))
print(d)
# map our data to expected column names so we can use function
nmap <- c(GroupColumn='Species',
ValueColumn='Sepal_Length',
RankColumn='rank')
print(nmap)
dF <- replyr_apply_f_mapped(d, DecreaseRankColumnByOne, nmap)
print(dF)
# }
Run the code above in your browser using DataLab