short_desc <- function(x) strsplit(description(x), " ", fixed = TRUE)[[1L]][1L]