Nothing
auditDocumentationFiles <- function(folder_s_1m) {
lf <- list.files(folder_s_1m, utils::glob2rx("*.Rd"), full.names = TRUE)
w <- sapply(lf, function(e) {
h <- computeDocumentationStatistics(e)
f <- Filter(Negate(is.na), h$line_length_issue)
if (length(f) > 0L) e else NA_character_
})
list(
correct = names(Filter(is.na, w)),
incorrect = names(Filter(Negate(is.na), w))
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.