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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.