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