R/renderArgs.R

In michelk/annotSrcDoc.R: Minimal documentation out of annotated function source code

renderArgs <-
    function                        # ^ Render args of a 'FunctionDoc'
(
    args                        # ^ Named list with function arguments
)
{
    renderArg <- function(name,desc) sprintf("\t\\item{%s}{%s}", name, desc)
    paste(
        sapply(names(args), function(nm) renderArg(nm, args[[nm]]))
       ,collapse = "\n")
}                                       # ^ String to fill in template