This R package uses the VIAF (Virtual International Authority File) API. VIAF is an OCLC service that combines multiple LAM (Library, Archive, and Museum) name authority files into a single name authority service. It thus provides direct access to linked names for the same entity across the world’s major name authority files, including national and regional variations in language, character set, and spelling. For more information go to https://viaf.org/.
You can install the released version of viafr from CRAN with:
install.packages("viafr")To install the development version from GitHub use:
# install.packages("devtools")
devtools::install_github("stefanieschneider/viafr")The viafr package functions use the VIAF (Virtual International Authority File) API. Optional VIAF API query parameters can be passed into each function. For information on supported query parameters, please see https://www.oclc.org/developer/api/oclc-apis/viaf.en.html.
viaf_get() returns a tibble, where each row contains
information about the respective VIAF identifier, whereas
viaf_search() and viaf_suggest() each produce
a named list of tibbles, with each tibble containing information about
the respective search query. The MARC 21 field definitions are used,
see, e.g., https://www.loc.gov/marc/bibliographic/.
(result_get <- viaf_get("15873"))
#> # A tibble: 1 × 4
#> viaf_id source_ids name_type text
#> <chr> <list> <chr> <list>
#> 1 15873 <tibble [42 × 3]> Personal Names <tibble [271 × 15]>
# Retrieve a tibble of all source identifiers
(source_ids <- dplyr::pull(result_get, source_ids) %>% purrr::pluck(1))
#> # A tibble: 42 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 "vtls002657273" EGAXA Library of Alexandria
#> 2 "9658" PTBNP National Library of Portugal
#> 3 "jn19990006541" NKC National Library of the Czech Republic
#> 4 "LNC10-000029604" LNB National Library of Latvia
#> 5 "500009666" JPG Union List of Artist Names [Getty Research Institute]
#> 6 "XX1637941" BNE National Library of Spain
#> 7 "00452768" NDL National Diet Library
#> 8 "000035422161" NLA National Library of Australia
#> 9 "cb11919660r" BNF National Library of France
#> 10 "RU\\NLR\\AUTH\\778208" NLR National Library of Russia
#> # … with 32 more rows
# Retrieve a tibble of data from all sources
(text <- dplyr::pull(result_get, text) %>% purrr::pluck(1))
#> # A tibble: 271 × 15
#> id count a b c d e f g q `4` `5` `7` `8` `9`
#> <int> <int> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 1 23 Picasso, Pab… <NA> <NA> 1881… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 2 1 6 Picasso, Pab… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 3 1 4 Ruiz y Picas… <NA> <NA> 1881… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 4 1 4 Picasso <NA> <NA> 1881… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 5 1 3 Picasso Ruiz… <NA> <NA> 1881… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 6 1 3 Bijiasuo <NA> <NA> 1881… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 7 1 3 Picasso <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 8 1 3 Picasso, Pab… <NA> <NA> 1881… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 9 1 3 Ruiz Picasso… <NA> <NA> 1881… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> 10 1 3 Ruiz, Pablo <NA> <NA> 1881… <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#> # … with 261 more rows
# Aggregate name variants and show dominant ones
# (subfield code `a` declares personal names)
dplyr::mutate(text, name_variant = a) %>% dplyr::group_by(name_variant) %>%
dplyr::summarise(count = sum(count)) %>% dplyr::filter(count > 9)
#> # A tibble: 3 × 2
#> name_variant count
#> <chr> <int>
#> 1 Pablo Picasso 43
#> 2 Picasso 20
#> 3 Picasso, Pablo 34(result_search <- viaf_search("Menzel", maximumRecords = 5))
#> $Menzel
#> # A tibble: 5 × 4
#> viaf_id source_ids name_type text
#> <chr> <list> <chr> <named list>
#> 1 9958151474888800490000 <tibble [1 × 3]> Uniform Title Expressions <tibble [2 × 8]>
#> 2 9951148269716905230007 <tibble [1 × 3]> Uniform Title Expressions <tibble [2 × 9]>
#> 3 9882160668064003560006 <tibble [1 × 3]> Personal Names <tibble [2 × 3]>
#> 4 9864149198241274940009 <tibble [2 × 3]> Personal Names <tibble [1 × 3]>
#> 5 9784165272356910690004 <tibble [1 × 3]> Uniform Title Expressions <tibble [2 × 5]>
# Retrieve a tibble of all source identifiers
(source_ids <- dplyr::pull(result_search$`Menzel`, source_ids))
#> [[1]]
#> # A tibble: 1 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 VIAFEXP1010942752 XR xR Extended Relationships
#>
#> [[2]]
#> # A tibble: 1 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 VIAFEXP83155351 XR xR Extended Relationships
#>
#> [[3]]
#> # A tibble: 1 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 0000000021405403 ISNI ISNI
#>
#> [[4]]
#> # A tibble: 2 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 172842131 DNB German National Library
#> 2 90818949 BIBSYS BIBSYS
#>
#> [[5]]
#> # A tibble: 1 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 vtls003289869 NUKAT NUKAT Center of Warsaw University Library
# Retrieve a tibble of data for the second search result
(text <- dplyr::pull(result_search$`Menzel`, text) %>% purrr::pluck(2))
#> # A tibble: 2 × 9
#> id count a d f l s t `0`
#> <int> <int> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 1 1 Müller-Brockmann, Josef 1914-1996. 1961 German "Menzel-Flocon " GRAPHIC ARTIST… (via…
#> 2 1 1 Müller-Brockmann, Josef 1914-1996. 1961 <NA> "Menzel-Flocon " Gestaltungspro… <NA>(result_suggest <- viaf_suggest("austen"))
#> $austen
#> # A tibble: 10 × 5
#> viaf_id source_ids name_type text score
#> <chr> <list> <chr> <chr> <chr>
#> 1 102333412 <tibble [12 × 3]> Personal Names Austen, Jane, 1775-1817 19182
#> 2 9943394 <tibble [8 × 3]> Personal Names Austen Henry Layard, 1817-1894 5760
#> 3 66482160 <tibble [7 × 3]> Personal Names Austen Chamberlain, 1863-1937 4452
#> 4 49253679 <tibble [9 × 3]> Personal Names Austen, J. L., 1911-1960 3788
#> 5 351144783162295221357 <tibble [5 × 3]> Personal Names Austen Ivereigh 3140
#> 6 76472664 <tibble [6 × 3]> Personal Names Austen-Leigh, James Edward, 1798-18… 2978
#> 7 3256795 <tibble [4 × 3]> Personal Names Austen, E. E. , 1867-1938 2326
#> 8 64067073 <tibble [6 × 3]> Personal Names Austen, K. Frank 2216
#> 9 69175936 <tibble [7 × 3]> Personal Names Austen, John 2180
#> 10 22268931 <tibble [4 × 3]> Personal Names Austen, Ralph A 2060
# Retrieve source identifiers for the most relevant search result
dplyr::filter(result_suggest$`austen`, score > 10000) %>%
dplyr::pull(source_ids) %>% purrr::pluck(1)
#> # A tibble: 12 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 n79032879 LC Library of Congress/NACO
#> 2 118505173 DNB German National Library
#> 3 207420 SELIBR National Library of Sweden
#> 4 495_131061 BAV Vatican Library
#> 5 11889603 BNF National Library of France
#> 6 500249665 JPG Union List of Artist Names [Getty Research Institute]
#> 7 cfiv017136 ICCU Central Institute for the Union Catalogue of the Italian libraries
#> 8 xx1124986 BNE National Library of Spain
#> 9 vtls000823272 EGAXA Library of Alexandria
#> 10 jn19990000321 NKC National Library of the Czech Republic
#> 11 000035010277 NLA National Library of Australia
#> 12 8531 PTBNP National Library of PortugalPlease report issues, feature requests, and questions to the GitHub issue tracker. We have a Contributor Code of Conduct. By participating in viafr you agree to abide by its terms.