Format an R dataframe for pasting into a Jira ticket

kable_jira.R

kable_jira <- function(x, ...) {
    # Ideal solution would be to use knitr:::kable_mark, but...
    res <- knitr::kable(x = x, format = "markdown", ...)
    res[[1]] <- stringr::str_replace_all(
        string = res[[1]],
        pattern = "\\|",
        replacement = "\\|\\|"
    )

    # Remove the second line
    structure(res[-2], format = "markdown", class = "knitr_kable")
}