R/tidy_artists.R

In Framus94/HierarchiesAndCareers:

tidy_artists <- function(.df_list){

  artist_info_artists <- .df_list[["artists"]]

  akl_artists <- .df_list[["AKL.matched.by.named.and.birthdate"]] %>%

    select(- note, - contains("search_"), - csv_name, - Thieme_Becker_Name)


  artists <- artist_info_artists %>%

    left_join(akl_artists,
              by = c("id" = "artist_info_id")) %>%

    mutate(birth = if_else(is.na(birth),
                           Geburtsdatum %>% str_extract("[0-9]{4}") %>% as.integer(),
                           birth),
           death = if_else(is.na(death),
                           str_extract(Todesdatum, "[0-9]{4}") %>% as.integer(),
                           death),
           id = as.character(id)
    )



  return(artists)
}