#' @include setup.R
#' @include utils.R
#' @include Classes.R
#' @include Funs.R
# documentation.results <- document_env(environment())
if(FALSE){#@testing check all documentation
env <- asNamespace('documentation')
if (exists('documentation.results', env)){
documented <- dplyr::filter(documentation.results, Documented & (Reason==''))
for (name in documented$Name)
expect_true(!is.null(documentation(get(name, envir = env))))
dplyr::filter(documentation.results, !Documented) %>%
dplyr::count(Message)
} else
message("Skipping global checking.")
}
if(FALSE){# cleanup and development
withr::with_options(list(warn=2, error=recover),
extract_documentation(document_package)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.