R/innermap.R

In MarceloRTonon/montgomeRy:

#' Title
#'
#' @param x
#' @param .f
#' @param ...
#' @param distance
#'
#' @return
#' @export
#'
#' @examples
innermap <- function(x, .f, ..., distance = 1L){
  map2(.x= x[1:(length(x)-distance)],
       .y = x[(1+distance):length(x)],
       .f,...)
}

#' Title
#'
#' @param x
#' @param .f
#' @param ...
#' @param distance
#'
#' @return
#' @export
#' @importFrom purrr map2_lgl
#'
#' @examples
innermap_lgl <- function(x, .f, ..., distance = 1L){
  map2_lgl(.x= x[1:(length(x)-distance)],
           .y = x[(1+distance):length(x)],
           .f,...)
}
#
# # swap is useful for when you are piping x but suddenly need to map y as .x and x as an argument.
#
# swap <- function(true.x, fake.x, true.LHS = "y", .f0, ...){
#
#   .f0 <- rlang::quo(!!.f0) %>%
#     rlang::quo_get_expr()
#
#
#   true.LHS <- rlang::enexpr(true.LHS)
#
#   true.xArg <- list(true.x) %>%
#   set_names(true.LHS)
#
#
# purrr::map(.x = fake.x,
#            .f = rlang::exec,
#            .fn = .f0, !!!true.xArg, ...)
# }