get_help_section_text.R

get_help_section_text <- function (func, section) {
  funcq <- substitute(func)
  if (!is.character(func)) {
    func <- deparse(funcq)
  }
  Rd <- utils:::.getHelpFile(help(func))
  data <- tools:::.Rd_get_section(Rd, section)
  result <- character()
  if (length(data)) {
    result <- tools:::.Rd_get_text(data)
    result <- result[nzchar(result)]
  }
  paste(result, collapse = "\n")
}

get_help_section_text(cat, "title")
get_help_section_text(cat, "description")
get_help_section_text(cat, "usage")
get_help_section_text(cat, "examples")