klutometis/roxygen — Issue #51: don't escape aliases that have already been escaped
Author: yihui
Created: 2011-10-26 15:14:50+00:00
State: open

Here is a test case:

```r
test_that("don't escape aliases that have already been escaped", {
out <- roc_proc_text(roc, "
#' Title
#' @aliases \\%a\\%
'%a%' <- function(x, y) x + y")[[1]]
expect_equal(format(get_tag(out, "alias")), "\\alias{\\%a\\%}\n")
})
```