library(tools)
library(dplyr)
library(magrittr)
library(stringr)
Rdfiles <- list.files(recursive = TRUE, pattern = ".Rd$") %>%
str_subset(pattern = "lifecycle", negate = TRUE) %>%
str_subset(pattern = "revdep", negate = TRUE)
for(i in Rdfiles)
{
print(i)
tools::checkRd(Rd = i, def_enc = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.