R/get_pseudonymes.R

In COMHIS/bibliographica: Bibliographic Data Analysis

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

}