1#' @export
2roxy_tag_parse.roxy_tag_aliases <- function(x) tag_value(x)
3#' @export
4format.rd_section_alias <- function(x, ...) {
5  x$value <- str_replace_all(x$value, fixed("%"), "\\%")
6  format_rd(x, ..., sort = FALSE)
7}
8
9#' @export
10roxy_tag_parse.roxy_tag_name <- function(x) tag_value(x)
11#' @export
12format.rd_section_name <- function(x, ...) {
13  x$value <- str_replace_all(x$value, fixed("%"), "\\%")
14  format_first(x, ...)
15}
16
17topic_add_name_aliases <- function(topic, block, name) {
18  tags <- block_get_tags(block, "aliases")
19
20  if (length(tags) == 0) {
21    aliases <- character()
22  } else {
23    vals <- map_chr(tags, "val")
24    aliases <- unlist(str_split(vals, "\\s+"))
25  }
26
27  if (any(aliases == "NULL")) {
28    # Don't add default aliases
29    aliases <- setdiff(aliases, "NULL")
30  } else {
31    aliases <- c(name, block$object$alias, aliases)
32  }
33  aliases <- unique(aliases)
34
35  topic$add(rd_section("name", name))
36  topic$add(rd_section("alias", aliases))
37}
38