R/rd-simple.R

Defines functions format.rd_section_keyword roxy_tag_rd.roxy_tag_keywords roxy_tag_parse.roxy_tag_keywords format.rd_section_encoding roxy_tag_rd.roxy_tag_encoding roxy_tag_parse.roxy_tag_encoding format.rd_section_docType roxy_tag_rd.roxy_tag_docType roxy_tag_parse.roxy_tag_docType format.rd_section_concept roxy_tag_rd.roxy_tag_concept roxy_tag_parse.roxy_tag_concept

#' @export
roxy_tag_parse.roxy_tag_concept <- function(x) tag_value(x)
#' @export
roxy_tag_rd.roxy_tag_concept <- function(x, base_path, env) {
  rd_section(x$tag, x$val)
}
#' @export
format.rd_section_concept <- function(x, ...) {
  format_rd(x, ...)
}

#' @export
roxy_tag_parse.roxy_tag_docType <- function(x) tag_name(x)
#' @export
roxy_tag_rd.roxy_tag_docType <- function(x, base_path, env) {
  rd_section("docType", x$val)
}
#' @export
format.rd_section_docType <- function(x, ...) {
  format_first(x, ...)
}

#' @export
roxy_tag_parse.roxy_tag_encoding <- function(x) tag_value(x)
#' @export
roxy_tag_rd.roxy_tag_encoding <- function(x, base_path, env) {
  rd_section(x$tag, x$val)
}
#' @export
format.rd_section_encoding <- function(x, ...) {
  format_first(x, ...)
}

#' @export
roxy_tag_parse.roxy_tag_keywords <- function(x) tag_value(x)
#' @export
roxy_tag_rd.roxy_tag_keywords <- function(x, base_path, env) {
  rd_section("keyword", str_split(x$val, "\\s+")[[1]])
}
#' @export
format.rd_section_keyword <- function(x, ...) {
  format_rd(x, ...)
}
r-lib/roxygen2 documentation built on April 21, 2024, 4:36 a.m.