R/docr_list_named.R

Defines functions docr.list_named

#' @export
docr.list_named <- function(L){

  list_body <- lapply(names(L), function(i){

    var_body <- stri_wrap(L[[i]], width = 60, indent = 0, exdent = 6)

    var_title <- sprintf("#'   \\item{%s}", i)

    paste0(var_title,
           sprintf("{%s}",
                   paste0(var_body,
                          collapse = "\n#'")
           )
    )

  }) %>% paste0(collapse = "\n")

  sprintf("#' \\describe{\n%s\n#' }",list_body) %>% HTML()
}
CarlBoneri/roxydoc2 documentation built on Nov. 6, 2019, 8:01 a.m.