The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
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_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 × 8]>
#> 3 9924169262252109510006 <tibble [1 × 3]> Personal Names <tibble [4 × 5]>
#> 4 9882160668064003560006 <tibble [1 × 3]> Personal Names <tibble [2 × 3]>
#> 5 9864149198241274940009 <tibble [2 × 3]> Personal Names <tibble [1 × 3]>
# 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 1298941520 DNB German National Library
#>
#> [[4]]
#> # A tibble: 1 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 0000000021405403 ISNI ISNI
#>
#> [[5]]
#> # A tibble: 2 × 3
#> id scheme name
#> <chr> <chr> <chr>
#> 1 172842131 DNB German National Library
#> 2 90818949 BIBSYS BIBSYS
# Retrieve a tibble of data for the second search result
(text <- dplyr::pull(result_search$`Menzel`, text) %>% purrr::pluck(2))
#> # A tibble: 2 × 8
#> id count a f l s t `0`
#> <int> <int> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 1 1 Müller-Brockmann, J. 1961 German "Menzel-Flocon " GRAPHIC ARTIST AND HIS DESIG… (via…
#> 2 1 1 Müller-Brockmann, J. 1961 <NA> "Menzel-Flocon " Gestaltungsprobleme des Graf… <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 20942
#> 2 9943394 <tibble [9 × 3]> Personal Names Austen Henry Layard, 1817-1894 6083
#> 3 66482160 <tibble [8 × 3]> Personal Names Austen Chamberlain, 1863-1937 4550
#> 4 49253679 <tibble [10 × 3]> Personal Names Austen, J. L., 1911-1960 3916
#> 5 351144783162295221357 <tibble [5 × 3]> Personal Names Austen Ivereigh 3303
#> 6 76472664 <tibble [6 × 3]> Personal Names Austen-Leigh, James Edward, 1798-18… 2906
#> 7 22268931 <tibble [4 × 3]> Personal Names Austen, Ralph A., 1937- 2600
#> 8 69175936 <tibble [7 × 3]> Personal Names Austen, John 2302
#> 9 3256795 <tibble [4 × 3]> Personal Names Austen, Ernest Edward, 1867-1938 2298
#> 10 64067073 <tibble [6 × 3]> Personal Names Austen, K. Frank 2234
# 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 vtls823272 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.
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.