Nothing
#' @export
roxy_tag_parse.roxy_tag_aliases <- function(x) tag_value(x)
#' @export
format.rd_section_alias <- function(x, ...) {
x$value <- str_replace_all(x$value, fixed("%"), "\\%")
format_rd(x, ..., sort = FALSE)
}
#' @export
roxy_tag_parse.roxy_tag_name <- function(x) tag_value(x)
#' @export
format.rd_section_name <- function(x, ...) {
x$value <- str_replace_all(x$value, fixed("%"), "\\%")
format_first(x, ...)
}
topic_add_name_aliases <- function(topic, block, name) {
tags <- block_get_tags(block, "aliases")
if (length(tags) == 0) {
aliases <- character()
} else {
vals <- map_chr(tags, "val")
aliases <- unlist(str_split(vals, "\\s+"))
}
if (any(aliases == "NULL")) {
# Don't add default aliases
aliases <- setdiff(aliases, "NULL")
} else {
aliases <- c(name, block$object$alias, aliases)
}
aliases <- unique(aliases)
topic$add(rd_section("name", name))
topic$add(rd_section("alias", aliases))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.