R/utils.R

In abjur/abjBook: ABJ book template

find_folder <- function(template, folder){
  system.file("bookdown", "templates", template, folder, package = "abjBook")
}
#' Pipe operator
#'
#' See \code{\link[magrittr]{\%>\%}} for more details.
#'
#' @name %>%
#' @rdname pipe
#' @keywords internal
#' @export
#' @importFrom magrittr %>%
#' @usage lhs \%>\% rhs
NULL