# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
loc <- function(data) {
.Call('dplyr_loc', PACKAGE = 'dplyr', data)
}
dfloc <- function(df) {
.Call('dplyr_dfloc', PACKAGE = 'dplyr', df)
}
plfloc <- function(data) {
.Call('dplyr_plfloc', PACKAGE = 'dplyr', data)
}
rank_strings <- function(s) {
.Call('dplyr_rank_strings', PACKAGE = 'dplyr', s)
}
arrange_impl <- function(data, dots) {
.Call('dplyr_arrange_impl', PACKAGE = 'dplyr', data, dots)
}
#' Do values in a numeric vector fall in specified range?
#'
#' This is a shortcut for \code{x >= left & x <= right}, implemented
#' efficiently in C++ for local values, and translated to the
#' appropriate SQL for remote tables.
#'
#' @param x A numeric vector of values
#' @param left,right Boundary values
#' @export
#' @examples
#' x <- rnorm(1e2)
#' x[between(x, -1, 1)]
between <- function(x, left, right) {
.Call('dplyr_between', PACKAGE = 'dplyr', x, left, right)
}
bind_rows_ <- function(dots, id = NULL) {
.Call('dplyr_bind_rows_', PACKAGE = 'dplyr', dots, id)
}
rbind_list__impl <- function(dots) {
.Call('dplyr_rbind_list__impl', PACKAGE = 'dplyr', dots)
}
cbind_all <- function(dots) {
.Call('dplyr_cbind_all', PACKAGE = 'dplyr', dots)
}
combine_all <- function(data) {
.Call('dplyr_combine_all', PACKAGE = 'dplyr', data)
}
combine_vars <- function(vars, xs) {
.Call('dplyr_combine_vars', PACKAGE = 'dplyr', vars, xs)
}
distinct_impl <- function(df, vars, keep) {
.Call('dplyr_distinct_impl', PACKAGE = 'dplyr', df, vars, keep)
}
assert_all_white_list <- function(data) {
invisible(.Call('dplyr_assert_all_white_list', PACKAGE = 'dplyr', data))
}
semi_join_impl <- function(x, y, by_x, by_y) {
.Call('dplyr_semi_join_impl', PACKAGE = 'dplyr', x, y, by_x, by_y)
}
anti_join_impl <- function(x, y, by_x, by_y) {
.Call('dplyr_anti_join_impl', PACKAGE = 'dplyr', x, y, by_x, by_y)
}
inner_join_impl <- function(x, y, by_x, by_y, suffix_x, suffix_y) {
.Call('dplyr_inner_join_impl', PACKAGE = 'dplyr', x, y, by_x, by_y, suffix_x, suffix_y)
}
left_join_impl <- function(x, y, by_x, by_y, suffix_x, suffix_y) {
.Call('dplyr_left_join_impl', PACKAGE = 'dplyr', x, y, by_x, by_y, suffix_x, suffix_y)
}
right_join_impl <- function(x, y, by_x, by_y, suffix_x, suffix_y) {
.Call('dplyr_right_join_impl', PACKAGE = 'dplyr', x, y, by_x, by_y, suffix_x, suffix_y)
}
full_join_impl <- function(x, y, by_x, by_y, suffix_x, suffix_y) {
.Call('dplyr_full_join_impl', PACKAGE = 'dplyr', x, y, by_x, by_y, suffix_x, suffix_y)
}
shallow_copy <- function(data) {
.Call('dplyr_shallow_copy', PACKAGE = 'dplyr', data)
}
compatible_data_frame_nonames <- function(x, y, convert) {
.Call('dplyr_compatible_data_frame_nonames', PACKAGE = 'dplyr', x, y, convert)
}
compatible_data_frame <- function(x, y, ignore_col_order = TRUE, convert = FALSE) {
.Call('dplyr_compatible_data_frame', PACKAGE = 'dplyr', x, y, ignore_col_order, convert)
}
equal_data_frame <- function(x, y, ignore_col_order = TRUE, ignore_row_order = TRUE, convert = FALSE) {
.Call('dplyr_equal_data_frame', PACKAGE = 'dplyr', x, y, ignore_col_order, ignore_row_order, convert)
}
all_equal_data_frame <- function(args, env) {
.Call('dplyr_all_equal_data_frame', PACKAGE = 'dplyr', args, env)
}
union_data_frame <- function(x, y) {
.Call('dplyr_union_data_frame', PACKAGE = 'dplyr', x, y)
}
intersect_data_frame <- function(x, y) {
.Call('dplyr_intersect_data_frame', PACKAGE = 'dplyr', x, y)
}
setdiff_data_frame <- function(x, y) {
.Call('dplyr_setdiff_data_frame', PACKAGE = 'dplyr', x, y)
}
match_data_frame <- function(x, y) {
.Call('dplyr_match_data_frame', PACKAGE = 'dplyr', x, y)
}
resolve_vars <- function(new_groups, names) {
.Call('dplyr_resolve_vars', PACKAGE = 'dplyr', new_groups, names)
}
grouped_df_impl <- function(data, symbols, drop) {
.Call('dplyr_grouped_df_impl', PACKAGE = 'dplyr', data, symbols, drop)
}
grouped_df_adj_impl <- function(data, symbols, drop) {
.Call('dplyr_grouped_df_adj_impl', PACKAGE = 'dplyr', data, symbols, drop)
}
slice_impl <- function(df, dots) {
.Call('dplyr_slice_impl', PACKAGE = 'dplyr', df, dots)
}
mutate_impl <- function(df, dots) {
.Call('dplyr_mutate_impl', PACKAGE = 'dplyr', df, dots)
}
order_impl <- function(args, env) {
.Call('dplyr_order_impl', PACKAGE = 'dplyr', args, env)
}
sort_impl <- function(data) {
.Call('dplyr_sort_impl', PACKAGE = 'dplyr', data)
}
group_size_grouped_cpp <- function(gdf) {
.Call('dplyr_group_size_grouped_cpp', PACKAGE = 'dplyr', gdf)
}
n_distinct_multi <- function(variables, na_rm = FALSE) {
.Call('dplyr_n_distinct_multi', PACKAGE = 'dplyr', variables, na_rm)
}
as_regular_df <- function(df) {
.Call('dplyr_as_regular_df', PACKAGE = 'dplyr', df)
}
ungroup_grouped_df <- function(df) {
.Call('dplyr_ungroup_grouped_df', PACKAGE = 'dplyr', df)
}
split_indices <- function(group, groups) {
.Call('dplyr_split_indices', PACKAGE = 'dplyr', group, groups)
}
gp <- function(x) {
.Call('dplyr_gp', PACKAGE = 'dplyr', x)
}
filter_impl <- function(df, dots) {
.Call('dplyr_filter_impl', PACKAGE = 'dplyr', df, dots)
}
grouped_indices_grouped_df_impl <- function(gdf) {
.Call('dplyr_grouped_indices_grouped_df_impl', PACKAGE = 'dplyr', gdf)
}
grouped_indices_impl <- function(data, symbols) {
.Call('dplyr_grouped_indices_impl', PACKAGE = 'dplyr', data, symbols)
}
select_impl <- function(df, vars) {
.Call('dplyr_select_impl', PACKAGE = 'dplyr', df, vars)
}
strings_addresses <- function(s) {
.Call('dplyr_strings_addresses', PACKAGE = 'dplyr', s)
}
summarise_impl <- function(df, dots) {
.Call('dplyr_summarise_impl', PACKAGE = 'dplyr', df, dots)
}
test_comparisons <- function() {
.Call('dplyr_test_comparisons', PACKAGE = 'dplyr')
}
#' Cumulativate versions of any, all, and mean
#'
#' dplyr adds \code{cumall}, \code{cumany}, and \code{cummean} to complete
#' R's set of cumulate functions to match the aggregation functions available
#' in most databases
#'
#' @param x For \code{cumall} & \code{cumany}, a logical vector; for
#' \code{cummean} an integer or numeric vector
#' @export
cumall <- function(x) {
.Call('dplyr_cumall', PACKAGE = 'dplyr', x)
}
#' @export
#' @rdname cumall
cumany <- function(x) {
.Call('dplyr_cumany', PACKAGE = 'dplyr', x)
}
#' @export
#' @rdname cumall
cummean <- function(x) {
.Call('dplyr_cummean', PACKAGE = 'dplyr', x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.