source(fs::path_wd( "vignettes", "_common", ext = "R"))
S3
r read.dcf("DESCRIPTION", "Description")[[1]]
You can install S3
by using:
install.packages("remotes") remotes::install_github("tidylab/S3")
invisible( references <- fs::path_wd("vignettes", "function-reference", ext = "csv") |> read.csv(na.strings = "") |> dplyr::transmute( Category = stringr::str_to_sentence(category), Subcategory = stringr::str_to_sentence(category), Function = paste0("`", as.character(name), "`"), S3 = dplyr::case_when( S3 == "v" ~ sprintf("<span style='color: %s;'>%s</span>", "green", "[v] Implemented"), S3 == "x" ~ sprintf("<span style='color: %s;'>%s</span>", "red", "[x] Irrelevant"), TRUE ~ sprintf("<span style='color: %s;'>%s</span>", "orange", "[-] Not Implemented"), ) ) ) knitr::kable(references)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.