#' Begin a capture group.
#'
#' @details Capture groups are used to extract data from within the regular
#' expression match for further processing.
#'
#' @param .data Expression to append, typically pulled from the pipe \code{ \%>\% }
#'
#' @export
rx_begin_capture <- function(.data = NULL) {
new_rx(paste0(.data, "("))
}
#' End a capture group.
#'
#' @details Capture groups are used to extract data from within the regular
#' expression match for further processing.
#'
#' @param .data Expression to append, typically pulled from the pipe \code{\%>\%}
#'
#' @export
rx_end_capture <- function(.data = NULL) {
new_rx(paste0(.data, ")"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.