# NOT RUN {
datasets::mtcars %.>%
# tibble::rownames_to_column() not currently re-exported by dplyr
mutate_se(., "CarName" := "rownames(.)" ) %.>%
select_se(., c('CarName', 'hp', 'wt')) %.>%
add_rank_indices(., arrangeTerms = c('desc(hp)', 'wt'),
orderColumn = 'rankID') %.>%
arrange_se(., 'rankID')
# }
Run the code above in your browser using DataLab