get_pseudonymes <- function (...) {
pseudo <- as.character(read.csv(system.file("extdata/names/pseudonymes/custom_pseudonymes.csv", package = "bibliographica"), sep = "\t")[,1])
# Remove extra spaces
pseudo <- condense_spaces(pseudo)
pseudo <- tolower(pseudo)
# Also consider removing periods, commas, dashes etc ?
# Organize
pseudo <- sort(unique(pseudo))
pseudo
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.