libbib 
Description
An R package providing WorldCat API communication, functions for validating and normalizing bibliographic codes such as ISBN; ISSN; and LCCN, translation from call numbers (Library of Congress and Dewey Decimal) to their subject classifications or subclassifications, and other related utilities helpful for assessment librarians. Also provides various loadable data files such call number / subject crosswalks and code tables.
Speed of execution and robustness are priorities in this package. To the end of optimizing speed and efficiency, careful consideration is taken to exploit vectorized functions and efficient data.table joins in the code.
On a (real life) example of 3 million very messy ISBN 10s and 13s, aggressive ISBN normalization took less than 1 minute (commodity hardware). It salvaged almost half a million previously unusable ISBNs, bringing the number of usable ISBNs (for matching, cataloging, etc...) from less than 90% to 99.6%!
As for robustness, this package is well tested, with over 300 automated tests, at time of writing.
data.table is a hard dependency of this package. Using data.table
internally makes, for example, the call number -> subject conversions
very fast. Additionally, loading this package also automatically
loads data.table. If you don't use data.table in your own code,
everything will work just fine! But you might want to look into it!
Some examples
> get_dewey_decimal_subject_class("823.912")
[1] "Literature (Belles-lettres) and rhetoric"
> get_lc_call_subject_classification(c("ND 237", "PQ2246.M3"),
+ subclassification=TRUE)
[1] "Painting"
[2] "French, Italian, Spanish, and Portuguese literature"
> convert_to_isbn_13(c("012491540X", "9004037810"))
[1] "9780124915404" "9789004037816"
> normalize_isbn_13(c("978-9-66-819791-8", "__9__781572411579"))
[1] "9789668197918" "9781572411579"
> normalize_lccn(" 79139101 /AC/r932")
[1] "79139101"
> # Do a WorldCat APU search on 19th century materials on ethics
> # (Dewey code 170s / LC Call prefix BJ)
> results <- worldcat_api_search('($dewey="17*" or $lc_call="bj*")
+ and srw.yr="18*"')
> results[,.(oclc, title, result_number, num_results)][1:5]
oclc title result_number num_results
<char> <char> <int> <char>
1: 8665856 The principles of moral and political ph... 1 1716
2: 191264919 The economy of human life. / 2 1716
3: 22571399 Solitude: 3 1716
4: 65250134 The theory of moral sentiments, or, An e... 4 1716
5: 13106952 Letters on the improvement of the mind : 5 1716
> worldcat_api_bib_read_info_by_isbn("9780984201006")
oclc isbn issn title
<char> <char> <char> <char>
1: 462894360 9780984201006 <NA> The Great Debate about Art /
author leader
<char> <char>
1: Harris, Roy, 00000cam a2200000 a 4500
oh08
<char>
1: 091031s2010 ilua b 000 0 eng c
> worldcat_api_classify_by_oclc("877749545")
oclc title author total_holdings total_eholdings
<char> <char> <char> <int> <int>
1: 877749545 Max Ernst's 'Celebes' Penrose, Roland, Sir 8 0
2: 877749545 Max Ernst's 'Celebes' Penrose, Roland, Sir 8 0
call_type recommendation holdings http_status_code classify_response_code
<char> <char> <char> <int> <int>
1: DDC 759.4 6 200 0
2: LCC ND588.E7 6 200 0
> worldcat_api_locations_by_oclc("877749545", max_libraries=10,
+ include.bib.info=FALSE)
oclc institution_identifier
<char> <char>
1: 877749545 NLE
2: 877749545 NLW
3: 877749545 EUM
4: 877749545 LTU
5: 877749545 ELU
6: 877749545 UKUAL
institution_name copies
<char> <char>
1: National Library of Scotland 1
2: National Library of Wales 1
3: University of Manchester Library 1
4: University of Leicester, David Wilson Library 1
5: University of London Senate House Library 1
6: University of the Arts London 1
> loc_permalink_from_lccn("73167510", format="marcxml")
[1] https://lccn.loc.gov/73167510/marcxml
> loc_permalink_from_lccn(c("2010292065", "2012451004")
[1] "https://lccn.loc.gov/2010292065" "https://lccn.loc.gov/2012451004"
> worldcat_permalink_from_oclc_number("1005106045")
[1] "http://www.worldcat.org/oclc/1005106045"
> get_isbn_10_check_digit("0-124-91540-X", allow.hyphens=TRUE)
[1] "X"
> is_valid_isbn_10(c("012491540X", "9004037812"))
[1] TRUE FALSE
> marc_leader_get_info("00000cam a22000008i 4500")
record_type bib_level
<char> <char>
1: Language Material Monograph/Item
# The Brothers Karamazov (1970 reissue but original publication date)
> marc_008_get_info("950622r19701880ru 000 0 rus d",
+ original.pub.date=TRUE)
pub_date pub_place_code lang_code
<int> <char> <char>
1: 1880 ru rus
# reissue publication date
> marc_008_get_info("950622r19701880ru 000 0 rus d")
pub_date pub_place_code lang_code
<int> <char> <char>
1: 1970 ru rus
> data("dewey_subject_crosswalk")
> dewey_subject_crosswalk
Key: <thekey>
thekey description
<char> <char>
1: 000 Computer science, knowledge and systems
2: 001 Knowledge
...
990: 998 Arctic islands and Antarctica
991: 999 Extraterrestrial worlds
> data("lc_subject_subclassification")
> lc_subject_subclassification
Key: <thekey>
thekey description
<char> <char>
1: AC Collections. Series. Collected works
2: AE Encyclopedias
...
227: Z Books (General). Writing. Paleography. Book indust...
228: ZA Information resources/materials
> get_language_from_code(c("yor", "spa"))
[1] "Yoruba" "Spanish"
> get_country_from_code(c("ck", " NYA"))
[1] "Colombia" "New York (State)"
> someisbns <- c("9782711875177;garbage-isbn;2711875172;2844268900",
+ "1861897952; 978-1-86189-795-4")
> split_map_filter_reduce(someisbns,
+ mapfun=
+ function(x){normalize_isbn(x, convert.to.isbn.13=TRUE)},
+ filterfun=remove_duplicates_and_nas,
+ reduxfun=recombine_with_sep_closure())
[1] "9782711875177;9782844268907" "9781861897954"
Functions
ISBNs
get_isbn_10_check_digitcheck_isbn_10_check_digitis_valid_isbn_10normalize_isbn_10get_isbn_13_check_digitcheck_isbn_13_check_digitis_valid_isbn_13convert_to_isbn_13normalize_isbn_13normalize_isbn
ISSN
get_issn_check_digitcheck_issn_check_digitis_valid_issnnormalize_issn
LCCN
normalize_lccn
Library of Congress Call Numbers
get_lc_call_subject_classificationis_valid_lc_callget_lc_call_first_letterget_all_lc_call_subject_letters
Dewey Decimal (DDC) Call Numbers
get_dewey_decimal_subject_classget_dewey_decimal_subject_divisionget_dewey_decimal_subject_section
WorldCat API
worldcat_api_searchworldcat_api_bib_read_info_by_oclcworldcat_api_bib_read_info_by_isbnworldcat_api_bib_read_info_by_issnworldcat_api_locations_by_oclcworldcat_api_locations_by_isbnworldcat_api_locations_by_issnworldcat_api_classify_by_oclcworldcat_api_classify_by_isbnworldcat_api_classify_by_issn
Interfacing with the web
loc_permalink_from_lccnworldcat_permalink_from_issnworldcat_permalink_from_isbnworldcat_permalink_from_oclc_numberoclc_classify_link_from_standard_num
Included data files (loadable with data(datafile))
language_code_crosswalk(from https://www.loc.gov/marc/languages/language_code.html)country_code_crosswalk(from https://www.loc.gov/marc/countries/countries_code.html)lc_subject_classification(from https://www.loc.gov/catdir/cpso/lcco/)lc_subject_subclassification(from https://www.loc.gov/catdir/cpso/lcco/)dewey_subject_crosswalk(from https://www.oclc.org/content/dam/oclc/dewey/ddc23-summaries.pdf)books_serials_etc_sample- A very small sample of books, serials, VHSs, CDs, and Computer files and some information including title, control numbers, call numbers, and call number subject classifications. Somewhat messy/inconsistent (deliberately) and mainly for testing. Will be expanded in future versions.
Marc field deconstruction
marc_leader_get_infomarc_008_get_info
other Marc code translations
get_language_from_codeget_country_from_code
split / map / filter / reduce and related utilies
carremove_duplicates_and_nasrecombine_with_sep_closuresplit_map_filter_reduce
miscellaneous utilities
dt_del_colsdt_keep_colsdt_counts_and_percentsget_clean_namesdt_set_clean_namesdt_percent_not_nadt_na_breakdowndt_add_to_col_names
working with special attributes
fread_plus_datefwrite_plus_dateset_lb_attributeset_lb_datecp_lb_attributes