R/debug_pipe.R

Defines functions undebug_fseq debug_fseq debug_pipe

Documented in debug_fseq debug_pipe undebug_fseq

#' Debugging function for magrittr pipelines.
#'
#' This function is a wrapper around `browser`, which makes it
#' easier to debug at certain places in a magrittr pipe chain.
#'
#' @param x a value
#' @return x
#'
#' @export
debug_pipe <- function(x)
{
  browser()
  x
}

#' Debugging function for functional sequences.
#'
#' This is a utility function for marking functions in a functional 
#' sequence for debbuging.
#'
#' @param fseq a functional sequence.
#' @param ... indices of functions to debug. 
#' @return `invisible(NULL)`.
#'
#' @export
debug_fseq <- function(fseq, ...)
{
  is_valid_index <- function(i) i %in% seq_along(functions(fseq))

  indices <- list(...)
    if (!any(vapply(indices, is.numeric, logical(1L))) ||
        !any(vapply(indices, is_valid_index, logical(1L))))
      stop("Index or indices invalid.", call. = FALSE)

  invisible(lapply(indices, function(i) debug(functions(fseq)[[i]])))
}

#' @rdname debug_fseq
#' @export
undebug_fseq <- function(fseq)
{
  for (i in seq_along(functions(fseq)))
    if (isdebugged(functions(fseq)[[i]])) 
      undebug(functions(fseq)[[i]])
}
tidyverse/magrittr documentation built on March 9, 2023, 2 p.m.