Comments (2)
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), ".")
}
from kwb.pubs.
@hsonne many thanks!
from kwb.pubs.
Related Issues (8)
- Import scripts from repo "pubs" (where relevant)
- feat: import "authors" from Endnote DB (sdb.ini)
- Add functions for generating "index.md" files based on "kwb.endnote"
- Autogenerate CVs with rorcid
- encoding issue on KWB pc
- feat: generate "publication.md" completely with R using Endnote DB (sdb.ini)
- bug: replace_publications_in_pub_index_md() behavior changed after cleaning HOT 3
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google ❤️ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.
from kwb.pubs.