R/create_lookup_authors_kwb.R

In KWB-R/kwb.orcid: R Package for Checking Orcid Use at KWB

#' Create Lookup Authors KWB
#'
#' @param orcids character vector with valid ORCIDs (default: get_kwb_orcids())
#' @return data frame with authors information (as required for R packages) 
#' @export
#' @importFrom dplyr rename mutate select
#' @importFrom magrittr %>%
#' @importFrom rlang .data
#' @examples 
#' orcids <- get_kwb_orcids()
#' create_lookup_authors_kwb(orcids)
#' 
create_lookup_authors_kwb <- function(orcids = get_kwb_orcids()) {
  
  kwb.orcid::get_author_meta_for_orcids(orcids) %>%
  dplyr::rename("given" = .data$given_names,
                "family" = .data$family_name,
                "comment" = .data$orcid) %>%
  dplyr::mutate(email = sprintf("%s.%s@kompetenz-wasser.de",
                               tolower(.data$given),
                               tolower(.data$family))) %>%
  dplyr::select(.data$given, .data$family, .data$email, .data$comment) %>% 
  dplyr::arrange(.data$comment)
  
}