feat: shorten "editors" names

[mrustl]

Add function to shorten editor names in format lastname, firstname (Rustler, Michael) to lastname firstname (Rustler M.)

To be added here:

kwb.pubs/R/add_kwb-style_to_endnote-db.R

Line 85 in 04bc129

clean_editors <- function(string) {

Maybe @hsonne has a nice code chunk for it?

Example dataset attached
editors.zip

string <- readRDS(file = "editors.Rds")
kwb.pubs:::clean_editors(string)

[hsonne]

Hi @mrustl, here is my proposition, for you to test and integrate:

if (FALSE)
{
  shorten_first_name("Christian")
  shorten_first_name("Hans-Peter")
  shorten_first_name("Alfons-Peter Alexander")
  shorten_first_name("Michael Andreas Oliver")
  
  editors <- readRDS("~/../Downloads/S/support/michael-rustler/editors.Rds")
  
  abbreviated <- lapply(strsplit(editors, "\r"), function(x) {
    sapply(x, abbreviate_author, USE.NAMES = FALSE)
  })
  
  sapply(abbreviated, paste, collapse = "\r")
}

# abbreviate_author ------------------------------------------------------------
abbreviate_author <- function(x) {
  last_first <- strsplit(x, "\\s*,\\s*")[[1L]]
  
  if (length(last_first) > 1L) {
    last_first[2L] <- shorten_first_name(last_first[2L])
  }
  
  paste(last_first, collapse = " ")
}

# shorten_first_name -----------------------------------------------------------
shorten_first_name <- function(x) {
  paste(sapply(strsplit(x, "\\s+")[[1]], shorten_dashed_name), collapse = " ")
}

# shorten_dashed_name ----------------------------------------------------------
shorten_dashed_name <- function(x) {
  paste(sapply(strsplit(x, "-")[[1]], dot_after_first_char), collapse = "-")
}

# dot_after_first_char ---------------------------------------------------------
dot_after_first_char <- function(x) {
  paste0(substr(x, 1L, 1L), ".")
}

[mrustl]

@hsonne many thanks!