R/tidyverse_verb_methods.R

In simpr: Flexible 'Tidyverse'-Friendly Simulations

#' Simpr methods for tidyverse verbs
#'
#' These are simpr-compatible methods for generic
#' \code{dplyr} and \code{tidyr} verbs. The user
#' is not expected to call these methods directly.
#'
#' See original function documentation for details
#' of the functions. Two methods have been created
#' for each \code{tidyr} and \code{dplyr} generic
#' function: one for \code{simpr_spec} objects
#' (generated by
#' \code{\link[=specify.formula]{specify}} and
#' \code{\link{define}}) which are simply stored
#' for later evaluation by
#' \code{\link[=generate.simpr_spec]{generate}},
#' and one for \code{\link{simpr_sims}} objects to
#' perform the operation elementwise on each
#' simulation.
#'
#' To use these special per-simulation versions of
#' these tidyverse verbs as a part of a
#' \code{simpr} simulation, first run
#' \code{\link{per_sim}} on the object. If you do
#' NOT want to compute only on each simulation but
#' want to return to the default behavior of
#' operating on the entire simulation tibble, use
#' \code{\link{whole_tibble}}.
#'
#' @return \code{simpr_sims} methods return a
#'   \code{simpr_sims} object with the given data
#'   transformation applied to each simulation.
#'   \code{simpr_spec} methods return a \code{simpr_spec}
#'   object that stores the given data
#'   transformation, to be executed when
#'   \code{\link[=generate.simpr_spec]{generate}}
#'   is called.
#'
#' @name tidyverse_verbs
NULL

#' @importFrom dplyr add_count
#' @export
dplyr::add_count

# dummy function to satisfy lifecycle check
# errors on CRAN, probably caused by something in
# this file on some systems.
.dummy_lifecycle = function(x, ...) {
  a = lifecycle::badge
  return(invisible(NULL))
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @param wt See original function documentation
#' @param sort See original function documentation
#' @param name See original function documentation
#' @param .drop See original function documentation
#' @export
add_count.simpr_sims = function(x, ..., wt = NULL, sort = FALSE, name = NULL,
    .drop = lifecycle::deprecated()) {
mc = match.call()
mc[[1]] = quote(add_count)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @param wt See original function documentation
#' @param sort See original function documentation
#' @param name See original function documentation
#' @param .drop See original function documentation
#' @export
add_count.simpr_spec = function(x, ..., wt = NULL, sort = FALSE, name = NULL,
    .drop = lifecycle::deprecated()) {
mc = match.call()

add_call(x, mc, 'add_count', replace_arg = 2)
}
#' @importFrom dplyr anti_join
#' @export
dplyr::anti_join

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param \dots See original function documentation
#' @export
anti_join.simpr_sims = function(x, y, by = NULL, copy = FALSE, ...) {
mc = match.call()
mc[[1]] = quote(anti_join)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param \dots See original function documentation
#' @export
anti_join.simpr_spec = function(x, y, by = NULL, copy = FALSE, ...) {
mc = match.call()

add_call(x, mc, 'anti_join', replace_arg = 2)
}
#' @importFrom dplyr arrange_
#' @export
dplyr::arrange_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
arrange_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(arrange_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
arrange_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'arrange_', replace_arg = 2)
}
#' @importFrom dplyr arrange
#' @export
dplyr::arrange

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .by_group See original function documentation
#' @export
arrange.simpr_sims = function(.data, ..., .by_group = FALSE) {
mc = match.call()
mc[[1]] = quote(arrange)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .by_group See original function documentation
#' @export
arrange.simpr_spec = function(.data, ..., .by_group = FALSE) {
mc = match.call()

add_call(.data, mc, 'arrange', replace_arg = 2)
}
#' @importFrom dplyr as.tbl
#' @export
dplyr::as.tbl

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @export
as.tbl.simpr_sims = function(x, ...) {
mc = match.call()
mc[[1]] = quote(as.tbl)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @export
as.tbl.simpr_spec = function(x, ...) {
mc = match.call()

add_call(x, mc, 'as.tbl', replace_arg = 2)
}
#' @importFrom dplyr auto_copy
#' @export
dplyr::auto_copy

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param copy See original function documentation
#' @param \dots See original function documentation
#' @export
auto_copy.simpr_sims = function(x, y, copy = FALSE, ...) {
mc = match.call()
mc[[1]] = quote(auto_copy)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param copy See original function documentation
#' @param \dots See original function documentation
#' @export
auto_copy.simpr_spec = function(x, y, copy = FALSE, ...) {
mc = match.call()

add_call(x, mc, 'auto_copy', replace_arg = 2)
}
#' @importFrom dplyr collect
#' @export
dplyr::collect

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @export
collect.simpr_sims = function(x, ...) {
mc = match.call()
mc[[1]] = quote(collect)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @export
collect.simpr_spec = function(x, ...) {
mc = match.call()

add_call(x, mc, 'collect', replace_arg = 2)
}
#' @importFrom dplyr compute
#' @export
dplyr::compute

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @export
compute.simpr_sims = function(x, ...) {
mc = match.call()
mc[[1]] = quote(compute)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @export
compute.simpr_spec = function(x, ...) {
mc = match.call()

add_call(x, mc, 'compute', replace_arg = 2)
}
#' @importFrom dplyr count
#' @export
dplyr::count

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @param wt See original function documentation
#' @param sort See original function documentation
#' @param name See original function documentation
#' @export
count.simpr_sims = function(x, ..., wt = NULL, sort = FALSE, name = NULL) {
mc = match.call()
mc[[1]] = quote(count)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @param wt See original function documentation
#' @param sort See original function documentation
#' @param name See original function documentation
#' @export
count.simpr_spec = function(x, ..., wt = NULL, sort = FALSE, name = NULL) {
mc = match.call()

add_call(x, mc, 'count', replace_arg = 2)
}
#' @importFrom dplyr distinct_
#' @export
dplyr::distinct_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @param .keep_all See original function documentation
#' @export
distinct_.simpr_sims = function(.data, ..., .dots, .keep_all = FALSE) {
mc = match.call()
mc[[1]] = quote(distinct_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @param .keep_all See original function documentation
#' @export
distinct_.simpr_spec = function(.data, ..., .dots, .keep_all = FALSE) {
mc = match.call()

add_call(.data, mc, 'distinct_', replace_arg = 2)
}
#' @importFrom dplyr distinct
#' @export
dplyr::distinct

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .keep_all See original function documentation
#' @export
distinct.simpr_sims = function(.data, ..., .keep_all = FALSE) {
mc = match.call()
mc[[1]] = quote(distinct)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .keep_all See original function documentation
#' @export
distinct.simpr_spec = function(.data, ..., .keep_all = FALSE) {
mc = match.call()

add_call(.data, mc, 'distinct', replace_arg = 2)
}
#' @importFrom dplyr do_
#' @export
dplyr::do_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
do_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(do_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
do_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'do_', replace_arg = 2)
}
#' @importFrom dplyr do
#' @export
dplyr::do

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
do.simpr_sims = function(.data, ...) {
mc = match.call()
mc[[1]] = quote(do)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
do.simpr_spec = function(.data, ...) {
mc = match.call()

add_call(.data, mc, 'do', replace_arg = 2)
}
#' @importFrom dplyr dplyr_col_modify
#' @export
dplyr::dplyr_col_modify

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @export
dplyr_col_modify.simpr_sims = function(data, cols) {
mc = match.call()
mc[[1]] = quote(dplyr_col_modify)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @export
dplyr_col_modify.simpr_spec = function(data, cols) {
mc = match.call()

add_call(data, mc, 'dplyr_col_modify', replace_arg = 2)
}
#' @importFrom dplyr dplyr_reconstruct
#' @export
dplyr::dplyr_reconstruct

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param template See original function documentation
#' @export
dplyr_reconstruct.simpr_sims = function(data, template) {
mc = match.call()
mc[[1]] = quote(dplyr_reconstruct)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param template See original function documentation
#' @export
dplyr_reconstruct.simpr_spec = function(data, template) {
mc = match.call()

add_call(data, mc, 'dplyr_reconstruct', replace_arg = 2)
}
#' @importFrom dplyr dplyr_row_slice
#' @export
dplyr::dplyr_row_slice

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param i See original function documentation
#' @param \dots See original function documentation
#' @export
dplyr_row_slice.simpr_sims = function(data, i, ...) {
mc = match.call()
mc[[1]] = quote(dplyr_row_slice)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param i See original function documentation
#' @param \dots See original function documentation
#' @export
dplyr_row_slice.simpr_spec = function(data, i, ...) {
mc = match.call()

add_call(data, mc, 'dplyr_row_slice', replace_arg = 2)
}
#' @importFrom dplyr filter_
#' @export
dplyr::filter_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
filter_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(filter_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
filter_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'filter_', replace_arg = 2)
}
#' @importFrom dplyr filter
#' @export
dplyr::filter

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .preserve See original function documentation
#' @export
filter.simpr_sims = function(.data, ..., .preserve = FALSE) {
mc = match.call()
mc[[1]] = quote(filter)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .preserve See original function documentation
#' @export
filter.simpr_spec = function(.data, ..., .preserve = FALSE) {
mc = match.call()

add_call(.data, mc, 'filter', replace_arg = 2)
}
#' @importFrom dplyr full_join
#' @export
dplyr::full_join

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param suffix See original function documentation
#' @param \dots See original function documentation
#' @param keep See original function documentation
#' @export
full_join.simpr_sims = function(x, y, by = NULL, copy = FALSE, suffix = c(".x",
    ".y"), ..., keep = FALSE) {
mc = match.call()
mc[[1]] = quote(full_join)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param suffix See original function documentation
#' @param \dots See original function documentation
#' @param keep See original function documentation
#' @export
full_join.simpr_spec = function(x, y, by = NULL, copy = FALSE, suffix = c(".x",
    ".y"), ..., keep = FALSE) {
mc = match.call()

add_call(x, mc, 'full_join', replace_arg = 2)
}
#' @importFrom dplyr group_by_
#' @export
dplyr::group_by_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @param add See original function documentation
#' @export
group_by_.simpr_sims = function(.data, ..., .dots = list(), add = FALSE) {
mc = match.call()
mc[[1]] = quote(group_by_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @param add See original function documentation
#' @export
group_by_.simpr_spec = function(.data, ..., .dots = list(), add = FALSE) {
mc = match.call()

add_call(.data, mc, 'group_by_', replace_arg = 2)
}
#' @importFrom dplyr group_by
#' @export
dplyr::group_by

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .add See original function documentation
#' @param .drop See original function documentation
#' @export
group_by.simpr_sims = function(.data, ..., .add = FALSE, .drop = dplyr::group_by_drop_default(.data)) {
mc = match.call()
mc[[1]] = quote(group_by)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .add See original function documentation
#' @param .drop See original function documentation
#' @export
group_by.simpr_spec = function(.data, ..., .add = FALSE, .drop = dplyr::group_by_drop_default(.data)) {
mc = match.call()

add_call(.data, mc, 'group_by', replace_arg = 2)
}
#' @importFrom dplyr group_data
#' @export
dplyr::group_data

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @export
group_data.simpr_sims = function(.data) {
mc = match.call()
mc[[1]] = quote(group_data)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @export
group_data.simpr_spec = function(.data) {
mc = match.call()

add_call(.data, mc, 'group_data', replace_arg = 2)
}
#' @importFrom dplyr group_indices_
#' @export
dplyr::group_indices_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
group_indices_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(group_indices_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
group_indices_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'group_indices_', replace_arg = 2)
}
#' @importFrom dplyr group_indices
#' @export
dplyr::group_indices

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
group_indices.simpr_sims = function(.data, ...) {
mc = match.call()
mc[[1]] = quote(group_indices)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
group_indices.simpr_spec = function(.data, ...) {
mc = match.call()

add_call(.data, mc, 'group_indices', replace_arg = 2)
}
#' @importFrom dplyr group_keys
#' @export
dplyr::group_keys

#' @rdname tidyverse_verbs
#' @param .tbl See original function documentation
#' @param \dots See original function documentation
#' @export
group_keys.simpr_sims = function(.tbl, ...) {
mc = match.call()
mc[[1]] = quote(group_keys)

.tbl[[get_sim_name(.tbl)]] =  purrr::map(.tbl[[get_sim_name(.tbl)]],
                                           ~ eval(mc))
.tbl
}

#' @rdname tidyverse_verbs
#' @param .tbl See original function documentation
#' @param \dots See original function documentation
#' @export
group_keys.simpr_spec = function(.tbl, ...) {
mc = match.call()

add_call(.tbl, mc, 'group_keys', replace_arg = 2)
}
#' @importFrom dplyr group_map
#' @export
dplyr::group_map

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param .f See original function documentation
#' @param \dots See original function documentation
#' @param .keep See original function documentation
#' @export
group_map.simpr_sims = function(.data, .f, ..., .keep = FALSE) {
mc = match.call()
mc[[1]] = quote(group_map)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param .f See original function documentation
#' @param \dots See original function documentation
#' @param .keep See original function documentation
#' @export
group_map.simpr_spec = function(.data, .f, ..., .keep = FALSE) {
mc = match.call()

add_call(.data, mc, 'group_map', replace_arg = 2)
}
#' @importFrom dplyr group_modify
#' @export
dplyr::group_modify

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param .f See original function documentation
#' @param \dots See original function documentation
#' @param .keep See original function documentation
#' @export
group_modify.simpr_sims = function(.data, .f, ..., .keep = FALSE) {
mc = match.call()
mc[[1]] = quote(group_modify)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param .f See original function documentation
#' @param \dots See original function documentation
#' @param .keep See original function documentation
#' @export
group_modify.simpr_spec = function(.data, .f, ..., .keep = FALSE) {
mc = match.call()

add_call(.data, mc, 'group_modify', replace_arg = 2)
}
#' @importFrom dplyr group_nest
#' @export
dplyr::group_nest

#' @rdname tidyverse_verbs
#' @param .tbl See original function documentation
#' @param \dots See original function documentation
#' @param .key See original function documentation
#' @param keep See original function documentation
#' @export
group_nest.simpr_sims = function(.tbl, ..., .key = "data", keep = FALSE) {
mc = match.call()
mc[[1]] = quote(group_nest)

.tbl[[get_sim_name(.tbl)]] =  purrr::map(.tbl[[get_sim_name(.tbl)]],
                                           ~ eval(mc))
.tbl
}

#' @rdname tidyverse_verbs
#' @param .tbl See original function documentation
#' @param \dots See original function documentation
#' @param .key See original function documentation
#' @param keep See original function documentation
#' @export
group_nest.simpr_spec = function(.tbl, ..., .key = "data", keep = FALSE) {
mc = match.call()

add_call(.tbl, mc, 'group_nest', replace_arg = 2)
}
#' @importFrom dplyr group_size
#' @export
dplyr::group_size

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
group_size.simpr_sims = function(x) {
mc = match.call()
mc[[1]] = quote(group_size)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
group_size.simpr_spec = function(x) {
mc = match.call()

add_call(x, mc, 'group_size', replace_arg = 2)
}
#' @importFrom dplyr group_split
#' @export
dplyr::group_split

#' @rdname tidyverse_verbs
#' @param .tbl See original function documentation
#' @param \dots See original function documentation
#' @param .keep See original function documentation
#' @export
group_split.simpr_sims = function(.tbl, ..., .keep = TRUE) {
mc = match.call()
mc[[1]] = quote(group_split)

.tbl[[get_sim_name(.tbl)]] =  purrr::map(.tbl[[get_sim_name(.tbl)]],
                                           ~ eval(mc))
.tbl
}

#' @rdname tidyverse_verbs
#' @param .tbl See original function documentation
#' @param \dots See original function documentation
#' @param .keep See original function documentation
#' @export
group_split.simpr_spec = function(.tbl, ..., .keep = TRUE) {
mc = match.call()

add_call(.tbl, mc, 'group_split', replace_arg = 2)
}
#' @importFrom dplyr group_trim
#' @export
dplyr::group_trim

#' @rdname tidyverse_verbs
#' @param .tbl See original function documentation
#' @param .drop See original function documentation
#' @export
group_trim.simpr_sims = function(.tbl, .drop = dplyr::group_by_drop_default(.tbl)) {
mc = match.call()
mc[[1]] = quote(group_trim)

.tbl[[get_sim_name(.tbl)]] =  purrr::map(.tbl[[get_sim_name(.tbl)]],
                                           ~ eval(mc))
.tbl
}

#' @rdname tidyverse_verbs
#' @param .tbl See original function documentation
#' @param .drop See original function documentation
#' @export
group_trim.simpr_spec = function(.tbl, .drop = dplyr::group_by_drop_default(.tbl)) {
mc = match.call()

add_call(.tbl, mc, 'group_trim', replace_arg = 2)
}
#' @importFrom dplyr group_vars
#' @export
dplyr::group_vars

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
group_vars.simpr_sims = function(x) {
mc = match.call()
mc[[1]] = quote(group_vars)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
group_vars.simpr_spec = function(x) {
mc = match.call()

add_call(x, mc, 'group_vars', replace_arg = 2)
}
#' @importFrom dplyr groups
#' @export
dplyr::groups

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
groups.simpr_sims = function(x) {
mc = match.call()
mc[[1]] = quote(groups)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
groups.simpr_spec = function(x) {
mc = match.call()

add_call(x, mc, 'groups', replace_arg = 2)
}
#' @importFrom dplyr inner_join
#' @export
dplyr::inner_join

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param suffix See original function documentation
#' @param \dots See original function documentation
#' @param keep See original function documentation
#' @export
inner_join.simpr_sims = function(x, y, by = NULL, copy = FALSE, suffix = c(".x",
    ".y"), ..., keep = FALSE) {
mc = match.call()
mc[[1]] = quote(inner_join)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param suffix See original function documentation
#' @param \dots See original function documentation
#' @param keep See original function documentation
#' @export
inner_join.simpr_spec = function(x, y, by = NULL, copy = FALSE, suffix = c(".x",
    ".y"), ..., keep = FALSE) {
mc = match.call()

add_call(x, mc, 'inner_join', replace_arg = 2)
}
#' @importFrom dplyr intersect
#' @export
dplyr::intersect

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
intersect.simpr_sims = function(x, y, ...) {
mc = match.call()
mc[[1]] = quote(intersect)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
intersect.simpr_spec = function(x, y, ...) {
mc = match.call()

add_call(x, mc, 'intersect', replace_arg = 2)
}
#' @importFrom dplyr left_join
#' @export
dplyr::left_join

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param suffix See original function documentation
#' @param \dots See original function documentation
#' @param keep See original function documentation
#' @export
left_join.simpr_sims = function(x, y, by = NULL, copy = FALSE, suffix = c(".x",
    ".y"), ..., keep = FALSE) {
mc = match.call()
mc[[1]] = quote(left_join)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param suffix See original function documentation
#' @param \dots See original function documentation
#' @param keep See original function documentation
#' @export
left_join.simpr_spec = function(x, y, by = NULL, copy = FALSE, suffix = c(".x",
    ".y"), ..., keep = FALSE) {
mc = match.call()

add_call(x, mc, 'left_join', replace_arg = 2)
}
#' @importFrom dplyr mutate_
#' @export
dplyr::mutate_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
mutate_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(mutate_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
mutate_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'mutate_', replace_arg = 2)
}
#' @importFrom dplyr mutate
#' @export
dplyr::mutate

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
mutate.simpr_sims = function(.data, ...) {
mc = match.call()
mc[[1]] = quote(mutate)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
mutate.simpr_spec = function(.data, ...) {
mc = match.call()

add_call(.data, mc, 'mutate', replace_arg = 2)
}
#' @importFrom dplyr n_groups
#' @export
dplyr::n_groups

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
n_groups.simpr_sims = function(x) {
mc = match.call()
mc[[1]] = quote(n_groups)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
n_groups.simpr_spec = function(x) {
mc = match.call()

add_call(x, mc, 'n_groups', replace_arg = 2)
}
#' @importFrom dplyr nest_by
#' @export
dplyr::nest_by

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .key See original function documentation
#' @param .keep See original function documentation
#' @export
nest_by.simpr_sims = function(.data, ..., .key = "data", .keep = FALSE) {
mc = match.call()
mc[[1]] = quote(nest_by)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .key See original function documentation
#' @param .keep See original function documentation
#' @export
nest_by.simpr_spec = function(.data, ..., .key = "data", .keep = FALSE) {
mc = match.call()

add_call(.data, mc, 'nest_by', replace_arg = 2)
}
#' @importFrom dplyr nest_join
#' @export
dplyr::nest_join

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param keep See original function documentation
#' @param name See original function documentation
#' @param \dots See original function documentation
#' @export
nest_join.simpr_sims = function(x, y, by = NULL, copy = FALSE, keep = FALSE,
    name = NULL, ...) {
mc = match.call()
mc[[1]] = quote(nest_join)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param keep See original function documentation
#' @param name See original function documentation
#' @param \dots See original function documentation
#' @export
nest_join.simpr_spec = function(x, y, by = NULL, copy = FALSE, keep = FALSE,
    name = NULL, ...) {
mc = match.call()

add_call(x, mc, 'nest_join', replace_arg = 2)
}
#' @importFrom dplyr pull
#' @export
dplyr::pull

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param var See original function documentation
#' @param name See original function documentation
#' @param \dots See original function documentation
#' @export
pull.simpr_sims = function(.data, var = -1, name = NULL, ...) {
mc = match.call()
mc[[1]] = quote(pull)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param var See original function documentation
#' @param name See original function documentation
#' @param \dots See original function documentation
#' @export
pull.simpr_spec = function(.data, var = -1, name = NULL, ...) {
mc = match.call()

add_call(.data, mc, 'pull', replace_arg = 2)
}
#' @importFrom dplyr relocate
#' @export
dplyr::relocate

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .before See original function documentation
#' @param .after See original function documentation
#' @export
relocate.simpr_sims = function(.data, ..., .before = NULL, .after = NULL) {
mc = match.call()
mc[[1]] = quote(relocate)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .before See original function documentation
#' @param .after See original function documentation
#' @export
relocate.simpr_spec = function(.data, ..., .before = NULL, .after = NULL) {
mc = match.call()

add_call(.data, mc, 'relocate', replace_arg = 2)
}
#' @importFrom dplyr rename_
#' @export
dplyr::rename_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
rename_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(rename_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
rename_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'rename_', replace_arg = 2)
}
#' @importFrom dplyr rename_with
#' @export
dplyr::rename_with

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param .fn See original function documentation
#' @param .cols See original function documentation
#' @param \dots See original function documentation
#' @export
rename_with.simpr_sims = function(.data, .fn, .cols = dplyr::everything(), ...) {
mc = match.call()
mc[[1]] = quote(rename_with)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param .fn See original function documentation
#' @param .cols See original function documentation
#' @param \dots See original function documentation
#' @export
rename_with.simpr_spec = function(.data, .fn, .cols = dplyr::everything(), ...) {
mc = match.call()

add_call(.data, mc, 'rename_with', replace_arg = 2)
}
#' @importFrom dplyr rename
#' @export
dplyr::rename

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
rename.simpr_sims = function(.data, ...) {
mc = match.call()
mc[[1]] = quote(rename)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
rename.simpr_spec = function(.data, ...) {
mc = match.call()

add_call(.data, mc, 'rename', replace_arg = 2)
}
#' @importFrom dplyr right_join
#' @export
dplyr::right_join

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param suffix See original function documentation
#' @param \dots See original function documentation
#' @param keep See original function documentation
#' @export
right_join.simpr_sims = function(x, y, by = NULL, copy = FALSE, suffix = c(".x",
    ".y"), ..., keep = FALSE) {
mc = match.call()
mc[[1]] = quote(right_join)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param suffix See original function documentation
#' @param \dots See original function documentation
#' @param keep See original function documentation
#' @export
right_join.simpr_spec = function(x, y, by = NULL, copy = FALSE, suffix = c(".x",
    ".y"), ..., keep = FALSE) {
mc = match.call()

add_call(x, mc, 'right_join', replace_arg = 2)
}
#' @importFrom dplyr rows_delete
#' @export
dplyr::rows_delete

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_delete.simpr_sims = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()
mc[[1]] = quote(rows_delete)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_delete.simpr_spec = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()

add_call(x, mc, 'rows_delete', replace_arg = 2)
}
#' @importFrom dplyr rows_insert
#' @export
dplyr::rows_insert

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_insert.simpr_sims = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()
mc[[1]] = quote(rows_insert)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_insert.simpr_spec = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()

add_call(x, mc, 'rows_insert', replace_arg = 2)
}
#' @importFrom dplyr rows_patch
#' @export
dplyr::rows_patch

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_patch.simpr_sims = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()
mc[[1]] = quote(rows_patch)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_patch.simpr_spec = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()

add_call(x, mc, 'rows_patch', replace_arg = 2)
}
#' @importFrom dplyr rows_update
#' @export
dplyr::rows_update

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_update.simpr_sims = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()
mc[[1]] = quote(rows_update)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_update.simpr_spec = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()

add_call(x, mc, 'rows_update', replace_arg = 2)
}
#' @importFrom dplyr rows_upsert
#' @export
dplyr::rows_upsert

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_upsert.simpr_sims = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()
mc[[1]] = quote(rows_upsert)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param \dots See original function documentation
#' @param copy See original function documentation
#' @param in_place See original function documentation
#' @export
rows_upsert.simpr_spec = function(x, y, by = NULL, ..., copy = FALSE, in_place = FALSE) {
mc = match.call()

add_call(x, mc, 'rows_upsert', replace_arg = 2)
}
#' @importFrom dplyr rowwise
#' @export
dplyr::rowwise

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @export
rowwise.simpr_sims = function(data, ...) {
mc = match.call()
mc[[1]] = quote(rowwise)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @export
rowwise.simpr_spec = function(data, ...) {
mc = match.call()

add_call(data, mc, 'rowwise', replace_arg = 2)
}
#' @importFrom dplyr same_src
#' @export
dplyr::same_src

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @export
same_src.simpr_sims = function(x, y) {
mc = match.call()
mc[[1]] = quote(same_src)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @export
same_src.simpr_spec = function(x, y) {
mc = match.call()

add_call(x, mc, 'same_src', replace_arg = 2)
}
#' @importFrom dplyr sample_frac
#' @export
dplyr::sample_frac

#' @rdname tidyverse_verbs
#' @param tbl See original function documentation
#' @param size See original function documentation
#' @param replace See original function documentation
#' @param weight See original function documentation
#' @param .env See original function documentation
#' @param \dots See original function documentation
#' @export
sample_frac.simpr_sims = function(tbl, size = 1, replace = FALSE, weight = NULL,
    .env = NULL, ...) {
mc = match.call()
mc[[1]] = quote(sample_frac)

tbl[[get_sim_name(tbl)]] =  purrr::map(tbl[[get_sim_name(tbl)]],
                                           ~ eval(mc))
tbl
}

#' @rdname tidyverse_verbs
#' @param tbl See original function documentation
#' @param size See original function documentation
#' @param replace See original function documentation
#' @param weight See original function documentation
#' @param .env See original function documentation
#' @param \dots See original function documentation
#' @export
sample_frac.simpr_spec = function(tbl, size = 1, replace = FALSE, weight = NULL,
    .env = NULL, ...) {
mc = match.call()

add_call(tbl, mc, 'sample_frac', replace_arg = 2)
}
#' @importFrom dplyr sample_n
#' @export
dplyr::sample_n

#' @rdname tidyverse_verbs
#' @param tbl See original function documentation
#' @param size See original function documentation
#' @param replace See original function documentation
#' @param weight See original function documentation
#' @param .env See original function documentation
#' @param \dots See original function documentation
#' @export
sample_n.simpr_sims = function(tbl, size, replace = FALSE, weight = NULL, .env = NULL,
    ...) {
mc = match.call()
mc[[1]] = quote(sample_n)

tbl[[get_sim_name(tbl)]] =  purrr::map(tbl[[get_sim_name(tbl)]],
                                           ~ eval(mc))
tbl
}

#' @rdname tidyverse_verbs
#' @param tbl See original function documentation
#' @param size See original function documentation
#' @param replace See original function documentation
#' @param weight See original function documentation
#' @param .env See original function documentation
#' @param \dots See original function documentation
#' @export
sample_n.simpr_spec = function(tbl, size, replace = FALSE, weight = NULL, .env = NULL,
    ...) {
mc = match.call()

add_call(tbl, mc, 'sample_n', replace_arg = 2)
}
#' @importFrom dplyr select_
#' @export
dplyr::select_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
select_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(select_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
select_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'select_', replace_arg = 2)
}
#' @importFrom dplyr select
#' @export
dplyr::select

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
select.simpr_sims = function(.data, ...) {
mc = match.call()
mc[[1]] = quote(select)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
select.simpr_spec = function(.data, ...) {
mc = match.call()

add_call(.data, mc, 'select', replace_arg = 2)
}
#' @importFrom dplyr semi_join
#' @export
dplyr::semi_join

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param \dots See original function documentation
#' @export
semi_join.simpr_sims = function(x, y, by = NULL, copy = FALSE, ...) {
mc = match.call()
mc[[1]] = quote(semi_join)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param by See original function documentation
#' @param copy See original function documentation
#' @param \dots See original function documentation
#' @export
semi_join.simpr_spec = function(x, y, by = NULL, copy = FALSE, ...) {
mc = match.call()

add_call(x, mc, 'semi_join', replace_arg = 2)
}
#' @importFrom dplyr setdiff
#' @export
dplyr::setdiff

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
setdiff.simpr_sims = function(x, y, ...) {
mc = match.call()
mc[[1]] = quote(setdiff)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
setdiff.simpr_spec = function(x, y, ...) {
mc = match.call()

add_call(x, mc, 'setdiff', replace_arg = 2)
}
#' @importFrom dplyr setequal
#' @export
dplyr::setequal

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
setequal.simpr_sims = function(x, y, ...) {
mc = match.call()
mc[[1]] = quote(setequal)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
setequal.simpr_spec = function(x, y, ...) {
mc = match.call()

add_call(x, mc, 'setequal', replace_arg = 2)
}
#' @importFrom dplyr slice_
#' @export
dplyr::slice_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
slice_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(slice_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
slice_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'slice_', replace_arg = 2)
}
#' @importFrom dplyr slice_head
#' @export
dplyr::slice_head

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @export
slice_head.simpr_sims = function(.data, ..., n, prop) {
mc = match.call()
mc[[1]] = quote(slice_head)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @export
slice_head.simpr_spec = function(.data, ..., n, prop) {
mc = match.call()

add_call(.data, mc, 'slice_head', replace_arg = 2)
}
#' @importFrom dplyr slice_max
#' @export
dplyr::slice_max

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param order_by See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @param with_ties See original function documentation
#' @export
slice_max.simpr_sims = function(.data, order_by, ..., n, prop, with_ties = TRUE) {
mc = match.call()
mc[[1]] = quote(slice_max)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param order_by See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @param with_ties See original function documentation
#' @export
slice_max.simpr_spec = function(.data, order_by, ..., n, prop, with_ties = TRUE) {
mc = match.call()

add_call(.data, mc, 'slice_max', replace_arg = 2)
}
#' @importFrom dplyr slice_min
#' @export
dplyr::slice_min

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param order_by See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @param with_ties See original function documentation
#' @export
slice_min.simpr_sims = function(.data, order_by, ..., n, prop, with_ties = TRUE) {
mc = match.call()
mc[[1]] = quote(slice_min)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param order_by See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @param with_ties See original function documentation
#' @export
slice_min.simpr_spec = function(.data, order_by, ..., n, prop, with_ties = TRUE) {
mc = match.call()

add_call(.data, mc, 'slice_min', replace_arg = 2)
}
#' @importFrom dplyr slice_sample
#' @export
dplyr::slice_sample

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @param weight_by See original function documentation
#' @param replace See original function documentation
#' @export
slice_sample.simpr_sims = function(.data, ..., n, prop, weight_by = NULL,
    replace = FALSE) {
mc = match.call()
mc[[1]] = quote(slice_sample)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @param weight_by See original function documentation
#' @param replace See original function documentation
#' @export
slice_sample.simpr_spec = function(.data, ..., n, prop, weight_by = NULL,
    replace = FALSE) {
mc = match.call()

add_call(.data, mc, 'slice_sample', replace_arg = 2)
}
#' @importFrom dplyr slice_tail
#' @export
dplyr::slice_tail

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @export
slice_tail.simpr_sims = function(.data, ..., n, prop) {
mc = match.call()
mc[[1]] = quote(slice_tail)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param n See original function documentation
#' @param prop See original function documentation
#' @export
slice_tail.simpr_spec = function(.data, ..., n, prop) {
mc = match.call()

add_call(.data, mc, 'slice_tail', replace_arg = 2)
}
#' @importFrom dplyr slice
#' @export
dplyr::slice

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .preserve See original function documentation
#' @export
slice.simpr_sims = function(.data, ..., .preserve = FALSE) {
mc = match.call()
mc[[1]] = quote(slice)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .preserve See original function documentation
#' @export
slice.simpr_spec = function(.data, ..., .preserve = FALSE) {
mc = match.call()

add_call(.data, mc, 'slice', replace_arg = 2)
}
#' @importFrom dplyr summarise_
#' @export
dplyr::summarise_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
summarise_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(summarise_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
summarise_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'summarise_', replace_arg = 2)
}
#' @importFrom dplyr summarise
#' @export
dplyr::summarise

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .groups See original function documentation
#' @export
summarise.simpr_sims = function(.data, ..., .groups = NULL) {
mc = match.call()
mc[[1]] = quote(summarise)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .groups See original function documentation
#' @export
summarise.simpr_spec = function(.data, ..., .groups = NULL) {
mc = match.call()

add_call(.data, mc, 'summarise', replace_arg = 2)
}
#' @importFrom dplyr tally
#' @export
dplyr::tally

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param wt See original function documentation
#' @param sort See original function documentation
#' @param name See original function documentation
#' @export
tally.simpr_sims = function(x, wt = NULL, sort = FALSE, name = NULL) {
mc = match.call()
mc[[1]] = quote(tally)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param wt See original function documentation
#' @param sort See original function documentation
#' @param name See original function documentation
#' @export
tally.simpr_spec = function(x, wt = NULL, sort = FALSE, name = NULL) {
mc = match.call()

add_call(x, mc, 'tally', replace_arg = 2)
}
#' @importFrom dplyr tbl_vars
#' @export
dplyr::tbl_vars

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
tbl_vars.simpr_sims = function(x) {
mc = match.call()
mc[[1]] = quote(tbl_vars)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @export
tbl_vars.simpr_spec = function(x) {
mc = match.call()

add_call(x, mc, 'tbl_vars', replace_arg = 2)
}
#' @importFrom dplyr transmute_
#' @export
dplyr::transmute_

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
transmute_.simpr_sims = function(.data, ..., .dots = list()) {
mc = match.call()
mc[[1]] = quote(transmute_)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .dots See original function documentation
#' @export
transmute_.simpr_spec = function(.data, ..., .dots = list()) {
mc = match.call()

add_call(.data, mc, 'transmute_', replace_arg = 2)
}
#' @importFrom dplyr transmute
#' @export
dplyr::transmute

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
transmute.simpr_sims = function(.data, ...) {
mc = match.call()
mc[[1]] = quote(transmute)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @export
transmute.simpr_spec = function(.data, ...) {
mc = match.call()

add_call(.data, mc, 'transmute', replace_arg = 2)
}
#' @importFrom dplyr ungroup
#' @export
dplyr::ungroup

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @export
ungroup.simpr_sims = function(x, ...) {
mc = match.call()
mc[[1]] = quote(ungroup)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param \dots See original function documentation
#' @export
ungroup.simpr_spec = function(x, ...) {
mc = match.call()

add_call(x, mc, 'ungroup', replace_arg = 2)
}
#' @importFrom dplyr union_all
#' @export
dplyr::union_all

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
union_all.simpr_sims = function(x, y, ...) {
mc = match.call()
mc[[1]] = quote(union_all)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
union_all.simpr_spec = function(x, y, ...) {
mc = match.call()

add_call(x, mc, 'union_all', replace_arg = 2)
}
#' @importFrom dplyr union
#' @export
dplyr::union

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
union.simpr_sims = function(x, y, ...) {
mc = match.call()
mc[[1]] = quote(union)

x[[get_sim_name(x)]] =  purrr::map(x[[get_sim_name(x)]],
                                           ~ eval(mc))
x
}

#' @rdname tidyverse_verbs
#' @param x See original function documentation
#' @param y See original function documentation
#' @param \dots See original function documentation
#' @export
union.simpr_spec = function(x, y, ...) {
mc = match.call()

add_call(x, mc, 'union', replace_arg = 2)
}
#' @importFrom tidyr complete_
#' @export
tidyr::complete_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @param fill See original function documentation
#' @param \dots See original function documentation
#' @export
complete_.simpr_sims = function(data, cols, fill = list(), ...) {
mc = match.call()
mc[[1]] = quote(complete_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @param fill See original function documentation
#' @param \dots See original function documentation
#' @export
complete_.simpr_spec = function(data, cols, fill = list(), ...) {
mc = match.call()

add_call(data, mc, 'complete_', replace_arg = 2)
}
#' @importFrom tidyr complete
#' @export
tidyr::complete

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param fill See original function documentation
#' @export
complete.simpr_sims = function(data, ..., fill = list()) {
mc = match.call()
mc[[1]] = quote(complete)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param fill See original function documentation
#' @export
complete.simpr_spec = function(data, ..., fill = list()) {
mc = match.call()

add_call(data, mc, 'complete', replace_arg = 2)
}
#' @importFrom tidyr drop_na_
#' @export
tidyr::drop_na_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param vars See original function documentation
#' @export
drop_na_.simpr_sims = function(data, vars) {
mc = match.call()
mc[[1]] = quote(drop_na_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param vars See original function documentation
#' @export
drop_na_.simpr_spec = function(data, vars) {
mc = match.call()

add_call(data, mc, 'drop_na_', replace_arg = 2)
}
#' @importFrom tidyr drop_na
#' @export
tidyr::drop_na

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @export
drop_na.simpr_sims = function(data, ...) {
mc = match.call()
mc[[1]] = quote(drop_na)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @export
drop_na.simpr_spec = function(data, ...) {
mc = match.call()

add_call(data, mc, 'drop_na', replace_arg = 2)
}
#' @importFrom tidyr expand_
#' @export
tidyr::expand_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param dots See original function documentation
#' @param \dots See original function documentation
#' @export
expand_.simpr_sims = function(data, dots, ...) {
mc = match.call()
mc[[1]] = quote(expand_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param dots See original function documentation
#' @param \dots See original function documentation
#' @export
expand_.simpr_spec = function(data, dots, ...) {
mc = match.call()

add_call(data, mc, 'expand_', replace_arg = 2)
}
#' @importFrom tidyr expand
#' @export
tidyr::expand

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param .name_repair See original function documentation
#' @export
expand.simpr_sims = function(data, ..., .name_repair = "check_unique") {
mc = match.call()
mc[[1]] = quote(expand)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param .name_repair See original function documentation
#' @export
expand.simpr_spec = function(data, ..., .name_repair = "check_unique") {
mc = match.call()

add_call(data, mc, 'expand', replace_arg = 2)
}
#' @importFrom tidyr extract_
#' @export
tidyr::extract_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param into See original function documentation
#' @param regex See original function documentation
#' @param remove See original function documentation
#' @param convert See original function documentation
#' @param \dots See original function documentation
#' @export
extract_.simpr_sims = function(data, col, into, regex = "([[:alnum:]]+)",
    remove = TRUE, convert = FALSE, ...) {
mc = match.call()
mc[[1]] = quote(extract_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param into See original function documentation
#' @param regex See original function documentation
#' @param remove See original function documentation
#' @param convert See original function documentation
#' @param \dots See original function documentation
#' @export
extract_.simpr_spec = function(data, col, into, regex = "([[:alnum:]]+)",
    remove = TRUE, convert = FALSE, ...) {
mc = match.call()

add_call(data, mc, 'extract_', replace_arg = 2)
}
#' @importFrom tidyr extract
#' @export
tidyr::extract

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param into See original function documentation
#' @param regex See original function documentation
#' @param remove See original function documentation
#' @param convert See original function documentation
#' @param \dots See original function documentation
#' @export
extract.simpr_sims = function(data, col, into, regex = "([[:alnum:]]+)", remove = TRUE,
    convert = FALSE, ...) {
mc = match.call()
mc[[1]] = quote(extract)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param into See original function documentation
#' @param regex See original function documentation
#' @param remove See original function documentation
#' @param convert See original function documentation
#' @param \dots See original function documentation
#' @export
extract.simpr_spec = function(data, col, into, regex = "([[:alnum:]]+)", remove = TRUE,
    convert = FALSE, ...) {
mc = match.call()

add_call(data, mc, 'extract', replace_arg = 2)
}
#' @importFrom tidyr fill_
#' @export
tidyr::fill_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param fill_cols See original function documentation
#' @param .direction See original function documentation
#' @export
fill_.simpr_sims = function(data, fill_cols, .direction = c("down", "up")) {
mc = match.call()
mc[[1]] = quote(fill_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param fill_cols See original function documentation
#' @param .direction See original function documentation
#' @export
fill_.simpr_spec = function(data, fill_cols, .direction = c("down", "up")) {
mc = match.call()

add_call(data, mc, 'fill_', replace_arg = 2)
}
#' @importFrom tidyr fill
#' @export
tidyr::fill

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param .direction See original function documentation
#' @export
fill.simpr_sims = function(data, ..., .direction = c("down", "up", "downup",
    "updown")) {
mc = match.call()
mc[[1]] = quote(fill)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param .direction See original function documentation
#' @export
fill.simpr_spec = function(data, ..., .direction = c("down", "up", "downup",
    "updown")) {
mc = match.call()

add_call(data, mc, 'fill', replace_arg = 2)
}
#' @importFrom tidyr gather_
#' @export
tidyr::gather_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param key_col See original function documentation
#' @param value_col See original function documentation
#' @param gather_cols See original function documentation
#' @param na.rm See original function documentation
#' @param convert See original function documentation
#' @param factor_key See original function documentation
#' @export
gather_.simpr_sims = function(data, key_col, value_col, gather_cols, na.rm = FALSE,
    convert = FALSE, factor_key = FALSE) {
mc = match.call()
mc[[1]] = quote(gather_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param key_col See original function documentation
#' @param value_col See original function documentation
#' @param gather_cols See original function documentation
#' @param na.rm See original function documentation
#' @param convert See original function documentation
#' @param factor_key See original function documentation
#' @export
gather_.simpr_spec = function(data, key_col, value_col, gather_cols, na.rm = FALSE,
    convert = FALSE, factor_key = FALSE) {
mc = match.call()

add_call(data, mc, 'gather_', replace_arg = 2)
}
#' @importFrom tidyr gather
#' @export
tidyr::gather

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param key See original function documentation
#' @param value See original function documentation
#' @param \dots See original function documentation
#' @param na.rm See original function documentation
#' @param convert See original function documentation
#' @param factor_key See original function documentation
#' @export
gather.simpr_sims = function(data, key = "key", value = "value", ..., na.rm = FALSE,
    convert = FALSE, factor_key = FALSE) {
mc = match.call()
mc[[1]] = quote(gather)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param key See original function documentation
#' @param value See original function documentation
#' @param \dots See original function documentation
#' @param na.rm See original function documentation
#' @param convert See original function documentation
#' @param factor_key See original function documentation
#' @export
gather.simpr_spec = function(data, key = "key", value = "value", ..., na.rm = FALSE,
    convert = FALSE, factor_key = FALSE) {
mc = match.call()

add_call(data, mc, 'gather', replace_arg = 2)
}
#' @importFrom tidyr nest_legacy
#' @export
tidyr::nest_legacy

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param .key See original function documentation
#' @export
nest_legacy.simpr_sims = function(data, ..., .key = "data") {
mc = match.call()
mc[[1]] = quote(nest_legacy)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param .key See original function documentation
#' @export
nest_legacy.simpr_spec = function(data, ..., .key = "data") {
mc = match.call()

add_call(data, mc, 'nest_legacy', replace_arg = 2)
}
#' @importFrom tidyr nest
#' @export
tidyr::nest

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .names_sep See original function documentation
#' @param .key See original function documentation
#' @export
nest.simpr_sims = function(.data, ..., .names_sep = NULL, .key = lifecycle::deprecated()) {
mc = match.call()
mc[[1]] = quote(nest)

.data[[get_sim_name(.data)]] =  purrr::map(.data[[get_sim_name(.data)]],
                                           ~ eval(mc))
.data
}

#' @rdname tidyverse_verbs
#' @param .data See original function documentation
#' @param \dots See original function documentation
#' @param .names_sep See original function documentation
#' @param .key See original function documentation
#' @export
nest.simpr_spec = function(.data, ..., .names_sep = NULL, .key = lifecycle::deprecated()) {
mc = match.call()

add_call(.data, mc, 'nest', replace_arg = 2)
}
#' @importFrom tidyr pivot_longer
#' @export
tidyr::pivot_longer

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @param names_to See original function documentation
#' @param names_prefix See original function documentation
#' @param names_sep See original function documentation
#' @param names_pattern See original function documentation
#' @param names_ptypes See original function documentation
#' @param names_transform See original function documentation
#' @param names_repair See original function documentation
#' @param values_to See original function documentation
#' @param values_drop_na See original function documentation
#' @param values_ptypes See original function documentation
#' @param values_transform See original function documentation
#' @param \dots See original function documentation
#' @export
pivot_longer.simpr_sims = function(data, cols, names_to = "name", names_prefix = NULL,
    names_sep = NULL, names_pattern = NULL, names_ptypes = list(),
    names_transform = list(), names_repair = "check_unique",
    values_to = "value", values_drop_na = FALSE, values_ptypes = list(),
    values_transform = list(), ...) {
mc = match.call()
mc[[1]] = quote(pivot_longer)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @param names_to See original function documentation
#' @param names_prefix See original function documentation
#' @param names_sep See original function documentation
#' @param names_pattern See original function documentation
#' @param names_ptypes See original function documentation
#' @param names_transform See original function documentation
#' @param names_repair See original function documentation
#' @param values_to See original function documentation
#' @param values_drop_na See original function documentation
#' @param values_ptypes See original function documentation
#' @param values_transform See original function documentation
#' @param \dots See original function documentation
#' @export
pivot_longer.simpr_spec = function(data, cols, names_to = "name", names_prefix = NULL,
    names_sep = NULL, names_pattern = NULL, names_ptypes = list(),
    names_transform = list(), names_repair = "check_unique",
    values_to = "value", values_drop_na = FALSE, values_ptypes = list(),
    values_transform = list(), ...) {
mc = match.call()

add_call(data, mc, 'pivot_longer', replace_arg = 2)
}
#' @importFrom tidyr pivot_wider
#' @export
tidyr::pivot_wider

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param id_cols See original function documentation
#' @param id_expand See original function documentation
#' @param names_from See original function documentation
#' @param names_prefix See original function documentation
#' @param names_sep See original function documentation
#' @param names_glue See original function documentation
#' @param names_sort See original function documentation
#' @param names_vary See original function documentation
#' @param names_expand See original function documentation
#' @param names_repair See original function documentation
#' @param values_from See original function documentation
#' @param values_fill See original function documentation
#' @param values_fn See original function documentation
#' @param unused_fn See original function documentation
#' @param \dots See original function documentation
#' @export
pivot_wider.simpr_sims = function(data, id_cols = NULL, id_expand = FALSE, names_from = NULL,
    names_prefix = "", names_sep = "_", names_glue = NULL, names_sort = FALSE,
    names_vary = "fastest", names_expand = FALSE, names_repair = "check_unique",
    values_from = NULL, values_fill = NULL, values_fn = NULL, unused_fn = NULL,
    ...) {
mc = match.call()
mc[[1]] = quote(pivot_wider)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param id_cols See original function documentation
#' @param id_expand See original function documentation
#' @param names_from See original function documentation
#' @param names_prefix See original function documentation
#' @param names_sep See original function documentation
#' @param names_glue See original function documentation
#' @param names_sort See original function documentation
#' @param names_vary See original function documentation
#' @param names_expand See original function documentation
#' @param names_repair See original function documentation
#' @param values_from See original function documentation
#' @param values_fill See original function documentation
#' @param values_fn See original function documentation
#' @param unused_fn See original function documentation
#' @param \dots See original function documentation
#' @export
pivot_wider.simpr_spec = function(data, id_cols = NULL, id_expand = FALSE, names_from = NULL,
    names_prefix = "", names_sep = "_", names_glue = NULL, names_sort = FALSE,
    names_vary = "fastest", names_expand = FALSE, names_repair = "check_unique",
    values_from = NULL, values_fill = NULL, values_fn = NULL, unused_fn = NULL,
    ...) {
mc = match.call()

add_call(data, mc, 'pivot_wider', replace_arg = 2)
}
#' @importFrom tidyr replace_na
#' @export
tidyr::replace_na

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param replace See original function documentation
#' @param \dots See original function documentation
#' @export
replace_na.simpr_sims = function(data, replace, ...) {
mc = match.call()
mc[[1]] = quote(replace_na)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param replace See original function documentation
#' @param \dots See original function documentation
#' @export
replace_na.simpr_spec = function(data, replace, ...) {
mc = match.call()

add_call(data, mc, 'replace_na', replace_arg = 2)
}
#' @importFrom tidyr separate_
#' @export
tidyr::separate_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param into See original function documentation
#' @param sep See original function documentation
#' @param remove See original function documentation
#' @param convert See original function documentation
#' @param extra See original function documentation
#' @param fill See original function documentation
#' @param \dots See original function documentation
#' @export
separate_.simpr_sims = function(data, col, into, sep = "[^[:alnum:]]+", remove = TRUE,
    convert = FALSE, extra = "warn", fill = "warn", ...) {
mc = match.call()
mc[[1]] = quote(separate_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param into See original function documentation
#' @param sep See original function documentation
#' @param remove See original function documentation
#' @param convert See original function documentation
#' @param extra See original function documentation
#' @param fill See original function documentation
#' @param \dots See original function documentation
#' @export
separate_.simpr_spec = function(data, col, into, sep = "[^[:alnum:]]+", remove = TRUE,
    convert = FALSE, extra = "warn", fill = "warn", ...) {
mc = match.call()

add_call(data, mc, 'separate_', replace_arg = 2)
}
#' @importFrom tidyr separate_rows_
#' @export
tidyr::separate_rows_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @param sep See original function documentation
#' @param convert See original function documentation
#' @export
separate_rows_.simpr_sims = function(data, cols, sep = "[^[:alnum:].]+", convert = FALSE) {
mc = match.call()
mc[[1]] = quote(separate_rows_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @param sep See original function documentation
#' @param convert See original function documentation
#' @export
separate_rows_.simpr_spec = function(data, cols, sep = "[^[:alnum:].]+", convert = FALSE) {
mc = match.call()

add_call(data, mc, 'separate_rows_', replace_arg = 2)
}
#' @importFrom tidyr separate_rows
#' @export
tidyr::separate_rows

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param sep See original function documentation
#' @param convert See original function documentation
#' @export
separate_rows.simpr_sims = function(data, ..., sep = "[^[:alnum:].]+", convert = FALSE) {
mc = match.call()
mc[[1]] = quote(separate_rows)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param sep See original function documentation
#' @param convert See original function documentation
#' @export
separate_rows.simpr_spec = function(data, ..., sep = "[^[:alnum:].]+", convert = FALSE) {
mc = match.call()

add_call(data, mc, 'separate_rows', replace_arg = 2)
}
#' @importFrom tidyr separate
#' @export
tidyr::separate

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param into See original function documentation
#' @param sep See original function documentation
#' @param remove See original function documentation
#' @param convert See original function documentation
#' @param extra See original function documentation
#' @param fill See original function documentation
#' @param \dots See original function documentation
#' @export
separate.simpr_sims = function(data, col, into, sep = "[^[:alnum:]]+", remove = TRUE,
    convert = FALSE, extra = "warn", fill = "warn", ...) {
mc = match.call()
mc[[1]] = quote(separate)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param into See original function documentation
#' @param sep See original function documentation
#' @param remove See original function documentation
#' @param convert See original function documentation
#' @param extra See original function documentation
#' @param fill See original function documentation
#' @param \dots See original function documentation
#' @export
separate.simpr_spec = function(data, col, into, sep = "[^[:alnum:]]+", remove = TRUE,
    convert = FALSE, extra = "warn", fill = "warn", ...) {
mc = match.call()

add_call(data, mc, 'separate', replace_arg = 2)
}
#' @importFrom tidyr spread_
#' @export
tidyr::spread_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param key_col See original function documentation
#' @param value_col See original function documentation
#' @param fill See original function documentation
#' @param convert See original function documentation
#' @param drop See original function documentation
#' @param sep See original function documentation
#' @export
spread_.simpr_sims = function(data, key_col, value_col, fill = NA, convert = FALSE,
    drop = TRUE, sep = NULL) {
mc = match.call()
mc[[1]] = quote(spread_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param key_col See original function documentation
#' @param value_col See original function documentation
#' @param fill See original function documentation
#' @param convert See original function documentation
#' @param drop See original function documentation
#' @param sep See original function documentation
#' @export
spread_.simpr_spec = function(data, key_col, value_col, fill = NA, convert = FALSE,
    drop = TRUE, sep = NULL) {
mc = match.call()

add_call(data, mc, 'spread_', replace_arg = 2)
}
#' @importFrom tidyr spread
#' @export
tidyr::spread

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param key See original function documentation
#' @param value See original function documentation
#' @param fill See original function documentation
#' @param convert See original function documentation
#' @param drop See original function documentation
#' @param sep See original function documentation
#' @export
spread.simpr_sims = function(data, key, value, fill = NA, convert = FALSE,
    drop = TRUE, sep = NULL) {
mc = match.call()
mc[[1]] = quote(spread)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param key See original function documentation
#' @param value See original function documentation
#' @param fill See original function documentation
#' @param convert See original function documentation
#' @param drop See original function documentation
#' @param sep See original function documentation
#' @export
spread.simpr_spec = function(data, key, value, fill = NA, convert = FALSE,
    drop = TRUE, sep = NULL) {
mc = match.call()

add_call(data, mc, 'spread', replace_arg = 2)
}
#' @importFrom tidyr unite_
#' @export
tidyr::unite_

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param from See original function documentation
#' @param sep See original function documentation
#' @param remove See original function documentation
#' @export
unite_.simpr_sims = function(data, col, from, sep = "_", remove = TRUE) {
mc = match.call()
mc[[1]] = quote(unite_)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param from See original function documentation
#' @param sep See original function documentation
#' @param remove See original function documentation
#' @export
unite_.simpr_spec = function(data, col, from, sep = "_", remove = TRUE) {
mc = match.call()

add_call(data, mc, 'unite_', replace_arg = 2)
}
#' @importFrom tidyr unite
#' @export
tidyr::unite

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param \dots See original function documentation
#' @param sep See original function documentation
#' @param remove See original function documentation
#' @param na.rm See original function documentation
#' @export
unite.simpr_sims = function(data, col, ..., sep = "_", remove = TRUE, na.rm = FALSE) {
mc = match.call()
mc[[1]] = quote(unite)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param col See original function documentation
#' @param \dots See original function documentation
#' @param sep See original function documentation
#' @param remove See original function documentation
#' @param na.rm See original function documentation
#' @export
unite.simpr_spec = function(data, col, ..., sep = "_", remove = TRUE, na.rm = FALSE) {
mc = match.call()

add_call(data, mc, 'unite', replace_arg = 2)
}
#' @importFrom tidyr unnest_legacy
#' @export
tidyr::unnest_legacy

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param .drop See original function documentation
#' @param .id See original function documentation
#' @param .sep See original function documentation
#' @param .preserve See original function documentation
#' @export
unnest_legacy.simpr_sims = function(data, ..., .drop = NA, .id = NULL, .sep = NULL,
    .preserve = NULL) {
mc = match.call()
mc[[1]] = quote(unnest_legacy)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param \dots See original function documentation
#' @param .drop See original function documentation
#' @param .id See original function documentation
#' @param .sep See original function documentation
#' @param .preserve See original function documentation
#' @export
unnest_legacy.simpr_spec = function(data, ..., .drop = NA, .id = NULL, .sep = NULL,
    .preserve = NULL) {
mc = match.call()

add_call(data, mc, 'unnest_legacy', replace_arg = 2)
}
#' @importFrom tidyr unnest
#' @export
tidyr::unnest

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @param \dots See original function documentation
#' @param keep_empty See original function documentation
#' @param ptype See original function documentation
#' @param names_sep See original function documentation
#' @param names_repair See original function documentation
#' @param .drop See original function documentation
#' @param .id See original function documentation
#' @param .sep See original function documentation
#' @param .preserve See original function documentation
#' @export
unnest.simpr_sims = function(data, cols, ..., keep_empty = FALSE, ptype = NULL,
    names_sep = NULL, names_repair = "check_unique", .drop = lifecycle::deprecated(),
    .id = lifecycle::deprecated(), .sep = lifecycle::deprecated(), .preserve = lifecycle::deprecated()) {
mc = match.call()
mc[[1]] = quote(unnest)

data[[get_sim_name(data)]] =  purrr::map(data[[get_sim_name(data)]],
                                           ~ eval(mc))
data
}

#' @rdname tidyverse_verbs
#' @param data See original function documentation
#' @param cols See original function documentation
#' @param \dots See original function documentation
#' @param keep_empty See original function documentation
#' @param ptype See original function documentation
#' @param names_sep See original function documentation
#' @param names_repair See original function documentation
#' @param .drop See original function documentation
#' @param .id See original function documentation
#' @param .sep See original function documentation
#' @param .preserve See original function documentation
#' @export
unnest.simpr_spec = function(data, cols, ..., keep_empty = FALSE, ptype = NULL,
    names_sep = NULL, names_repair = "check_unique", .drop = lifecycle::deprecated(),
    .id = lifecycle::deprecated(), .sep = lifecycle::deprecated(), .preserve = lifecycle::deprecated()) {
mc = match.call()

add_call(data, mc, 'unnest', replace_arg = 2)
}