Function

Implementing journal abbreviation for the 'Journal' field in BibTex file.

Install

# CRAN
install.packages("journalabbr")

#
devtools::install_github("zoushucai/journalabbr")
# or
xfun::install_github("zoushucai/journalabbr")

Require

The format of the bib file is as follows:

@***{****,
  **** = {****},
  **** = "*****",
  *** = {{******}},
  **** = {*****}}

% or

@***{****,
  **** = {****},
  **** = "*****",
  *** = {{******}},
  **** = {*****}
  }
  

Except for the @character line, the rest of the field lines must have an equal sign =

Use

library(journalabbr)
path = system.file("extdata", "testfile_1.bib", package = "journalabbr", mustWork = TRUE)
temptab = abbr2bib(file = path, outfile =  tempfile(fileext = ".bib"))

# or
journalabbr::runExample()

Access internal data

library(journalabbr)
library(stringi)
abbrTable = journalabbr:::abbrTable
# Unicode to UTF-8
abbrTable = as.data.frame(
    lapply(abbrTable,
           function(x)stringi::stri_unescape_unicode(x))
           )