diff --git a/.appveyor.yml b/.appveyor.yml
deleted file mode 100644
index cf67ef5..0000000
--- a/.appveyor.yml
+++ /dev/null
@@ -1,63 +0,0 @@
-init:
-  ps: |
-        $ErrorActionPreference = "Stop"
-        Invoke-WebRequest https://raw.github.com/krlmlr/r-appveyor/master/scripts/appveyor-tool.ps1 -OutFile "..\appveyor-tool.ps1"
-        Import-Module '..\appveyor-tool.ps1'
-install:
-  ps: Bootstrap
-
-
-cache:
-  - C:\RLibrary
-
-environment:
-  matrix:
-    - R_VERSION: devel
-      POPPLERQT5FILE: 'dev\windows\appveyor\poppler-qt5-debug.zip'
-      CRAN: https://cran.rstudio.com
-    - R_VERSION: release
-      RTOOLS_VERSION: 32
-      CRAN: https://cran.rstudio.com
-      POPPLERQT5FILE: 'dev\windows\appveyor\poppler-qt5-debug.zip'
-  global:
-    NOT_CRAN: true
-
-build_script:
-  - travis-tool.sh install_deps
-#  - travis-tool.sh install_r devtools
-#  - Rscript -e 'devtools::install_github("romainfrancois/bibtex")'
-#  - travis-tool.sh install_github romainfrancois/bibtex
-#  - Rscript -e "install.packages('covr', repos = 'https://cran.rstudio.com')"
-#  - travis-tool.sh install_github jimhester/covr
-#  - travis-tool.sh install_github rstats-db/RSQLite
-
-
-test_script:
-  - travis-tool.sh run_tests
-
-on_failure:
-  - travis-tool.sh dump_logs
-  - 7z a failure.zip *.Rcheck\*
-  - appveyor PushArtifact failure.zip
-
-# on_success:
-#  - R -e "covr::coveralls(type = 'all')"
-
-artifacts:
-  - path: '*.Rcheck\**\*.log'
-    name: Logs
-
-  - path: '*.Rcheck\**\*.out'
-    name: Logs
-
-  - path: '*.Rcheck\**\*.fail'
-    name: Logs
-
-  - path: '*.Rcheck\**\*.Rout'
-    name: Logs
-
-  - path: '\*_*.tar.gz'
-    name: Bits
-
-  - path: '\*_*.zip'
-    name: Bits
\ No newline at end of file
diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
index 3dd3202..4e9c64e 100644
--- a/.github/workflows/R-CMD-check.yaml
+++ b/.github/workflows/R-CMD-check.yaml
@@ -1,6 +1,6 @@
 # Workflow derived from https://github.com/r-lib/actions/tree/v2/examples/check-standard.yml
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
-on: [push, workflow_dispatch]
+on: [push, workflow_dispatch, merge_group]
 
 name: R-CMD-check
 
diff --git a/DESCRIPTION b/DESCRIPTION
index 1ac5cd3..a6e91ab 100755
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,9 +1,11 @@
 Package: RefManageR
-Version: 1.4.0
+Version: 1.4.3
 Title: Straightforward 'BibTeX' and 'BibLaTeX' Bibliography Management
-Authors@R: person(c("Mathew", "W."), "McLean", role = c("aut", "cre"),
+Authors@R: c(person(c("Mathew", "W."), "McLean", role = c("aut", "cre"),
     email = "mathew.w.mclean@gmail.com",
-    comment = c(ORCID = "0000-0002-7891-9645"))
+    comment = c(ORCID = "0000-0002-7891-9645")),
+    person("Andy", "Bunn", role = "ctb",
+    email = "bunna@wwu.edu", comment = "function latexify used by toBiblatex"))
 Maintainer: Mathew W. McLean <mathew.w.mclean@gmail.com>
 Description: Provides tools for importing and working with bibliographic
     references. It greatly enhances the 'bibentry' class by providing a class
@@ -27,6 +29,8 @@ Imports:
     httr,
     lubridate (>= 1.5.0),
     stringr,
+    stringi,
+    R.utils,
     methods,
     bibtex (>= 0.4.1)
 Suggests:
@@ -38,5 +42,5 @@ Depends:
     R (>= 3.0)
 VignetteBuilder: knitr
 BugReports: https://github.com/ropensci/RefManageR/issues
-URL: https://github.com/ropensci/RefManageR/
-RoxygenNote: 7.2.1
+URL: https://github.com/ropensci/RefManageR/, https://docs.ropensci.org/RefManageR/
+RoxygenNote: 7.3.2
diff --git a/NAMESPACE b/NAMESPACE
index f5e416d..d8fecac 100755
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -49,6 +49,7 @@ export(as.BibEntry)
 export(fields)
 export(is.BibEntry)
 export(toBiblatex)
+importFrom(R.utils,captureOutput)
 importFrom(bibtex,do_read_bib)
 importFrom(httr,GET)
 importFrom(httr,POST)
@@ -73,6 +74,9 @@ importFrom(methods,hasArg)
 importFrom(plyr,llply)
 importFrom(plyr,progress_text)
 importFrom(stats,setNames)
+importFrom(stringi,stri_trans_nfc)
+importFrom(stringi,stri_trans_nfd)
+importFrom(stringi,stri_unescape_unicode)
 importFrom(stringr,str_length)
 importFrom(stringr,str_sub)
 importFrom(stringr,str_trim)
@@ -82,7 +86,6 @@ importFrom(tools,Rd2txt)
 importFrom(tools,Rd2txt_options)
 importFrom(tools,bibstyle)
 importFrom(tools,deparseLatex)
-importFrom(tools,encoded_text_to_latex)
 importFrom(tools,getBibstyle)
 importFrom(tools,latexToUtf8)
 importFrom(tools,loadPkgRdMacros)
diff --git a/R/ReadPDFs.R b/R/ReadPDFs.R
index a816a47..c3a33f9 100755
--- a/R/ReadPDFs.R
+++ b/R/ReadPDFs.R
@@ -89,8 +89,28 @@ ReadPDFs <- function (path, .enc = 'UTF-8', recursive = TRUE,
                                out, pages.idx))
   }else
   {
+    .findPages <- function(files)
+    {
+      n.files <- length(files)
+      page.bounding.boxes <- lapply(files, function(x)
+        system2("pdfinfo", paste(shQuote('-enc'),
+                                 shQuote(.enc), shQuote("-box"),
+                                 shQuote(normalizePath(x))),
+                stdout = TRUE, stderr = TRUE))
+      pages.idx <- lapply(page.bounding.boxes, grep, pattern = "^Pages:")
+      pages <- rep(Inf, n.files)
+      for (i in seq_along(pages.idx))
+      {
+        if (length(pages.idx[[i]]))
+          pages[i] <- as.integer(sub("^Pages:\\s+(\\d+)", "\\1",
+                                     page.bounding.boxes[[i]][pages.idx[[i]]],
+                                     perl = TRUE))
+      }
+      return(pages)
+    }
+
     doi.meta.ind <- logical(n.files)
-    pages <- rep(Inf, n.files)
+    pages <- .findPages(files)
   }
 
   ########################################
diff --git a/R/ReadPubMed.R b/R/ReadPubMed.R
index c2581a8..2667a78 100644
--- a/R/ReadPubMed.R
+++ b/R/ReadPubMed.R
@@ -120,6 +120,7 @@ GetPubMedByID <- function(id, db = "pubmed", ...){
   ## temp <- postForm(base.url, .params = parms)
   ## tdoc <- xmlParse(temp)
   temp <- POST(base.url, query = parms)
+  stop_for_status(temp)
   tdoc <- read_xml(temp)
 
   ## Note: directly using xpathApply on tdoc won't work if some results are
diff --git a/R/RefManageR-package.R b/R/RefManageR-package.R
index 544fa5b..94e3be0 100644
--- a/R/RefManageR-package.R
+++ b/R/RefManageR-package.R
@@ -1,20 +1,8 @@
-#' Import and Manage BibTeX and BibLaTeX references with RefManageR
-#'
-#' RefManageR provides tools for importing and working with
-#' bibliographic references.  It greatly enhances the bibentry class by
-#' providing a class BibEntry which stores BibTeX and BibLaTeX references,
-#' supports UTF-8 encoding, and can be easily searched by any field, by date
-#' ranges, and by various formats for name lists (author by last names,
-#' translator by full names, etc.). Entries can be updated, combined, sorted, printed
-#' in a number of styles, and exported. BibTeX and BibLaTeX .bib files can be
-#' read into R and converted to BibEntry objects.  Interfaces to NCBI's
-#' Entrez, CrossRef, and Zotero are provided for importing references and
-#' references can be created from locally stored PDFs using Poppler.  Includes
-#' functions for citing and generating a bibliography with hyperlinks for
-#' documents prepared with RMarkdown or RHTML.
+#' @keywords internal
+"_PACKAGE"
+
 #' @name RefManageR-package
 #' @aliases RefManageR refmanager
-#' @docType package
 #' @author McLean, M. W. \email{mathew.w.mclean@@gmail.com}
 #' @details
 #' \bold{Importing and Creating References}
@@ -56,7 +44,7 @@
 #' \code{\link{Cite}}.  Its interface is similar to \code{\link{options}}.
 #' @keywords package
 #' @references McLean, M. W. (2014). Straightforward Bibliography Management in R Using the RefManageR Package.
-#' \href{https://arxiv.org/abs/1403.2036}{arXiv: 1403.2036 [cs.DL]}. Submitted.
+#' \href{https://arxiv.org/abs/1403.2036}{arXiv: 1403.2036 [cs.DL]}.
 #' @references Kime, P., M. Wemheuer, and P. Lehman (2022). The biblatex Package.
 #' \url{http://mirrors.ibiblio.org/CTAN/macros/latex/contrib/biblatex/doc/biblatex.pdf}.
 #' @references Hornik, K., D. Murdoch, and A. Zeileis (2012).
diff --git a/R/WriteBib.R b/R/WriteBib.R
index 600575f..5a17a2b 100644
--- a/R/WriteBib.R
+++ b/R/WriteBib.R
@@ -21,7 +21,6 @@
 #' @note To write the contents of \code{bib} \dQuote{as is}, the argument
 #' \code{biblatex} should be \code{TRUE}, otherwise
 #' conversion is done as in \code{\link{toBibtex.BibEntry}}.
-#' @importFrom tools encoded_text_to_latex
 #' @author McLean, M. W. based on \code{write.bib} by Gaujoux, R.
 #' in package \code{bibtex}.
 #' @export
diff --git a/R/toBiblatex.R b/R/toBiblatex.R
index 76da930..1c4177d 100644
--- a/R/toBiblatex.R
+++ b/R/toBiblatex.R
@@ -10,6 +10,9 @@
 #' @param extra.fields character vector; fields that are not supported in standard BibTeX styles are by default dropped
 #' in the result return by the toBibtex function.
 #' Any fields specified in extra.fields will \emph{not} be dropped if present in an entry.
+#' @param encoded.names.to.latex if \code{TRUE} (the default) then name list fields
+#' such as \sQuote{author} and \sQuote{editor} will have non-ASCII characters
+#' translated to LaTeX escape sequences.
 #' @param ... ignored
 #' @export
 #' @return an object of class \dQuote{Bibtex} - character vectors where each element holds one line of a BibTeX or BibLaTeX file
@@ -49,8 +52,9 @@
 #' \item \emph{rest} - to Misc
 #' }
 #' @seealso \code{\link{toBibtex}}, \code{\link{BibEntry}}, \code{\link{print.BibEntry}}
-#' @author McLean, M. W. \email{mathew.w.mclean@@gmail.com}
-#' @importFrom tools encoded_text_to_latex parseLatex deparseLatex latexToUtf8
+#' @author McLean, M. W. \email{mathew.w.mclean@@gmail.com}, Andy Bunn for code for
+#' translating non-ASCII characters to LaTeX.
+#' @importFrom tools parseLatex deparseLatex latexToUtf8
 #' @keywords database IO utilities
 #' @aliases toBibtex.BibEntry toBibtex
 #' @examples
@@ -60,14 +64,16 @@
 #'     toBiblatex(bib[70:72])
 #'     toBibtex(bib[70:72])
 #' }
-toBiblatex <- function(object, ...){
+toBiblatex <- function(object, encoded.names.to.latex = TRUE, ...){
     format_bibentry1 <- function(object) {
       object <- unclass(object)[[1L]]
       rval <- paste0("@", attr(object, "bibtype"), "{", attr(object,
           "key"), ",")
-      nl.ind <- which(names(object) %in% .BibEntryNameList)
-      for (i in nl.ind)
-        object[i] <- encoded_text_to_latex(format_author(object[[i]]), "UTF-8")
+      if (encoded.names.to.latex) {
+        nl.ind <- which(names(object) %in% .BibEntryNameList)
+        for (i in nl.ind)
+          object[i] <- EncodedNameListToLaTeX(object[[i]])
+      }
       rval <- c(rval, vapply(names(object), function(n) paste0("  ",
           n, " = {", object[[n]], "},"), ""), "}", "")
       return(rval)
@@ -81,3 +87,215 @@ toBiblatex <- function(object, ...){
     class(rval) <- "Bibtex"
     rval
 }
+
+#' Wrapper for dplr::latexify that returns original
+#' text if translation to LaTeX fails
+#' @noRd
+#' @seealso  \url{https://github.com/ropensci/RefManageR/issues/106}
+EncodedNameListToLaTeX <- function(name.list, encoding = "UTF-8")
+{
+  formatted.text <- format_author(name.list)
+  out <- latexify(formatted.text, encoding, doublebackslash = FALSE)
+  if (grepl("^[{]?[?]", out))
+    return(formatted.text)
+  return(out)
+}
+
+#' Modified version of dplR::latexify
+#' @importFrom stringi stri_trans_nfc stri_trans_nfd stri_unescape_unicode
+#' @importFrom R.utils captureOutput
+#' @author Andy Bunn
+#' @noRd
+latexify <- function(x, 
+                     doublebackslash = FALSE, 
+                     dashdash = TRUE, 
+                     quotes = c("straight", "curved"), 
+                     packages = c("fontenc", "textcomp")) 
+{
+  y <- as.character(x)
+  encBytes <- Encoding(y) == "bytes"
+  if (any(encBytes)) {
+    y[encBytes] <- captureOutput(cat(y[encBytes], sep = "\n"))
+  }
+  y <- stri_trans_nfd(y)
+  Letters <- paste0(c(LETTERS, letters), collapse = "")
+  fontenc <- "fontenc" %in% packages
+  textcomp <- "textcomp" %in% packages
+  eurosym <- "eurosym" %in% packages
+  straightQuotes <- match.arg(quotes) == "straight"
+  y <- gsub("(?![[:space:]])[[:cntrl:]]", "", y, perl = TRUE)
+  y <- gsub("[[:space:]]+", " ", y)
+  substitutions <- list(c("\\\\^", "\\\\textasciicircum{}"),
+                        c("~", "\\\\textasciitilde{}"), c("<", "\\\\textless{}"),
+                        c(">", "\\\\textgreater{}"), c("\\\\|", "\\\\textbar{}"),
+                        c("([#$%&_])", "\\\\\\1"), if (isTRUE(dashdash)) {
+                          c("-", "\\\\mbox{-}")
+                        }, if (textcomp && straightQuotes) {
+                          c("'", "\\\\textquotesingle{}")
+                        }, if (textcomp && straightQuotes) {
+                          c("`", "\\\\textasciigrave{}")
+                        }, c("\"", if (fontenc && straightQuotes) {
+                          "\\\\textquotedbl{}"
+                        } else {
+                          "\\\\textquotedblright{}"
+                        }), c("/", "\\\\slash{}"))
+  substitutions <- substitutions[!vapply(substitutions, is.null, 
+                                         logical(1))]
+  substitutions <- c(substitutions, list(c("\\u0132", "\\\\IJ{}"),
+                                         c("\\u0133", "\\\\ij{}"),
+                                         c("\\u01f1", "DZ"), c("\\u01f2", "Dz"), 
+                                         c("\\u01f3", "dz"), c("\\u01c4", "DZ\\u033c"),
+                                         c("\\u01c5", "Dz\\u030c"),
+                                         c("\\u01c6", "dz\\u030c"),
+                                         c("\\u01c7", "LJ"), c("\\u01c8", "Lj"),
+                                         c("\\u01c9", "lj"), c("\\u01ca", "NJ"),
+                                         c("\\u01cb", "Nj"), c("\\u01cc", "nj"),
+                                         c("\\ufb00", "ff"), c("\\ufb01", "fi"),
+                                         c("\\ufb02", "fl"), c("\\ufb03", "ffi"),
+                                         c("\\ufb04", "ffl"), c("\\ufb05", "\\u017ft"),
+                                         c("\\ufb06", "st")))
+  above <- list(diaeresis = c("\\u0308", "\""), acute = c("\\u0301", "'"),
+                dotabove = c("\\u0307", "."), macron = c("\\u0304", "="),
+  circumflex = c("\\u0302", "^"), grave = c("\\u0300", "`"),
+  tilde = c("\\u0303", "~"), doubleacute = c("\\u030b", "H"),
+  ringabove = c("\\u030a", "r"), breve = c("\\u0306", "u"),
+  caron = c("\\u030c", "v"), invbreve = c("\\u0311", "newtie"))
+
+  below <- list(macronbelow = c("\\u0331", "b"), cedilla = c("\\u0327", "c"),
+                dotbelow = c("\\u0323", "d"), tie = c("\\u0361", "t"),
+                ogonek = c("\\u0328", "k"))
+  accents <- c(above, below)
+  command <- paste0("\\\\[", Letters, "]+|\\\\.")
+  combining <- paste0(vapply(accents, "[", character(1), 1), 
+                      collapse = "")
+  accPre <- paste0("(", command, "|.)({})?(?<![", combining, 
+                   "])")
+  accPost <- paste0("(?![", combining, "])")
+  aboveInCode <- vapply(above, "[", character(1), 1)
+  ijPattern <- paste0("([ij])", aboveInCode, accPost)
+  otherPattern <- paste0(accPre, aboveInCode, accPost)
+  aboveOutCode <- vapply(above, "[", character(1), 2)
+  ijReplacement <- paste0("\\\\", aboveOutCode, "{\\\\\\1}")
+  otherReplacement <- paste0("\\\\", aboveOutCode, "{\\1}")
+  belowInCode <- vapply(below, "[", character(1), 1)
+  belowPattern <- paste0(accPre, belowInCode, accPost)
+  belowOutCode <- vapply(below, "[", character(1), 2)
+  belowReplacement <- paste0("\\\\", belowOutCode, "{\\1}")
+  circPre <- paste0("(", command, "({([^}]|\\\\})+})?|.)({})?")
+  circPattern <- paste0(circPre, "\\u20dd", accPost)
+  circReplacement <- "\\\\textcircled{\\1}"
+  substitutions <- c(substitutions, lapply(lapply(mapply(list, 
+                                                         list(as.name("c")), 
+                                                         c(ijPattern, otherPattern, 
+                                                           belowPattern, circPattern), 
+                                                         c(ijReplacement, otherReplacement, 
+                                                           belowReplacement, circReplacement), 
+                                                         SIMPLIFY = FALSE), 
+                                                  as.call), eval))
+  substitutions <- c(substitutions, list(c("\\u00a1", "\\\\textexclamdown{}"),
+                                         c("\\u00a3", "\\\\pounds{}"),
+                                         c("\\u00a7", "\\\\S{}"),
+                                         c("\\u00a9", "\\\\copyright{}"),
+  c("\\u00aa", "\\\\textordfeminine{}"), c("\\u00ae", "\\\\textregistered{}"),
+  c("\\u00b6", "\\\\P{}"), c("\\u00b7", "\\\\textperiodcentered{}"),
+  c("\\u00ba", "\\\\textordmasculine{}"), c("\\u00bf", "\\\\textquestiondown{}"),
+  c("\\u2013", "\\\\textendash{}"), c("\\u2014", "\\\\textemdash{}"),
+  c("\\u2018", "\\\\textquoteleft{}"), c("\\u2019", "\\\\textquoteright{}"),
+  c("\\u201c", "\\\\textquotedblleft{}"), c("\\u201d", "\\\\textquotedblright{}"),
+  c("\\u2020", "\\\\dag{}"), c("\\u2021", "\\\\ddag{}"),
+  c("\\u2022", "\\\\textbullet{}"), c("\\u2026", "\\\\dots{}"),
+  c("\\u2122", "\\\\texttrademark{}"), c("\\u2423", "\\\\textvisiblespace{}"),
+  c("\\u00c6", "\\\\AE{}"), c("\\u00e6", "\\\\ae{}"), c("\\u0152", "\\\\OE{}"),
+  c("\\u0153", "\\\\oe{}"), c("\\u00d8", "\\\\O{}"), c("\\u00f8", "\\\\o{}"),
+  c("\\u0141", "\\\\L{}"), c("\\u0142", "\\\\l{}"),
+  c("\\u1e9e", "\\\\ifdefined\\\\XeTeXrevision\\\\iffontchar\\\\font\"1E9E\\\\symbol{\"1E9E}\\\\else\\\\SS\\\\fi\\\\else\\\\ifdefined\\\\directlua\\\\iffontchar\\\\font\"1E9E\\\\symbol{\"1E9E}\\\\else\\\\SS\\\\fi\\\\else\\\\SS\\\\fi\\\\fi{}"),
+  c("\\u00df", "\\\\ss{}"), c("\\u017f", "\\\\ifdefined\\\\XeTeXrevision\\\\symbol{\"017F}\\\\else\\\\ifdefined\\\\directlua\\\\symbol{\"017F}\\\\else{\\\\fontencoding{TS1}\\\\selectfont s}\\\\fi\\\\fi{}")))
+  substitutions <- c(substitutions, list(c("\\u00d0", "\\\\DH{}"), c("\\u00f0", "\\\\dh{}"),
+                                         c("\\u0110", "\\\\DJ{}"), c("\\u0111", "\\\\dj{}"),
+                                         c("\\u014a", "\\\\NG{}"),
+                                         c("\\u014b", "\\\\ng{}"), c("\\u00de", "\\\\TH{}"),
+                                         c("\\u00fe", "\\\\th{}"),
+                                         c("\\u00ab", "\\\\guillemotleft{}"),
+                                         c("\\u00bb", "\\\\guillemotright{}"),
+                                         c("\\u201a", "\\\\quotesinglbase{}"),
+                                         c("\\u201e", "\\\\quotedblbase{}"),
+                                         c("\\u2039", "\\\\guilsinglleft{}"),
+                                         c("\\u203a", "\\\\guilsinglright{}")))
+  substitutions <- c(substitutions, list(c("\\u00ad", "\\\\-"), c("\\u200b", "\\\\hspace{0pt}"),
+                                         c("\\u2217", "\\\\textasteriskcentered{}"),
+                                         c("\\u2016", "\\\\textbardbl{}"),
+                                         c("\\u25ef", "\\\\textbigcircle{}"),
+                                         c("\\u2422", "\\\\textblank{}"),
+                                         c("\\u00a6", "\\\\textbrokenbar{}"),
+                                         c("\\u2052", "\\\\textdiscount{}"),
+                                         c("\\u212e", "\\\\textestimated{}"),
+                                         c("\\u203d", "\\\\textinterrobang{}"),
+                                         c("\\u2e18", "\\\\textinterrobangdown{}"),
+                                         c("\\u2116", "\\\\textnumero{}"),
+                                         c("\\u25e6", "\\\\textopenbullet{}"),
+                                         c("\\u2030", "\\\\textperthousand{}"),
+                                         c("\\u2031", "\\\\textpertenthousand{}"),
+                                         c("\\u211e", "\\\\textrecipe{}"),
+                                         c("\\u203b", "\\\\textreferencemark{}"),
+                                         c("\\u02f7", "\\\\texttildelow{}"),
+                                         c("\\u2190", "\\\\textleftarrow{}"),
+                                         c("\\u2191", "\\\\textuparrow{}"),
+                                         c("\\u2192", "\\\\textrightarrow{}"),
+                                         c("\\u2193", "\\\\textdownarrow{}"),
+                                         c("\\u3008", "\\\\textlangle{}"),
+                                         c("\\u3009", "\\\\textrangle{}"),
+                                         c("\\u301a", "\\\\textlbrackdbl{}"),
+                                         c("\\u301b", "\\\\textrbrackdbl{}"),
+                                         c("\\u2045", "\\\\textlquill{}"),
+                                         c("\\u2046", "\\\\textrquill{}"),
+                                         c("\\u2117", "\\\\textcircledP{}"),
+                                         c("\\u2120", "\\\\textservicemark{}"),
+                                         c("\\u2103", "\\\\textcelsius{}"),
+                                         c("\\u2127", "\\\\textmho{}"),
+                                         c("\\u00b5", "\\\\textmu{}"),
+                                         c("\\u03a9", "\\\\textohm{}"),
+                                         c("\\u0e3f", "\\\\textbaht{}"),
+                                         c("\\u00a2", "\\\\textcent{}"),
+                                         c("\\u20a1", "\\\\textcolonmonetary{}"),
+                                         c("\\u00a4", "\\\\textcurrency{}"),
+                                         c("\\u20ab", "\\\\textdong{}"),
+                                         c("\\u20ac", "\\\\texteuro{}"),
+                                         c("\\u20b2", "\\\\textguarani{}"),
+                                         c("\\u20a4", "\\\\textlira{}"),
+                                         c("\\u20a6", "\\\\textnaira{}"),
+                                         c("\\u20b1", "\\\\textpeso{}"),
+                                         c("\\u20a9", "\\\\textwon{}"),
+                                         c("\\u00a5", "\\\\textyen{}"),
+                                         c("\\u02dd", "\\\\textacutedbl{}"),
+                                         c("\\u00b4", "\\\\textasciiacute{}"),
+                                         c("\\u00b8", "\\\\c{}"),
+                                         c("\\u02d8", "\\\\textasciibreve{}"),
+                                         c("\\u02c7", "\\\\textasciicaron{}"),
+                                         c("\\u00a8", "\\\\textasciidieresis{}"),
+                                         c("\\u00af", "\\\\textasciimacron{}"),
+                                         c("\\u00b0", "\\\\textdegree{}"),
+                                         c("\\u00f7", "\\\\textdiv{}"),
+                                         c("\\u00bc", "\\\\textonequarter{}"),
+                                         c("\\u00bd", "\\\\textonehalf{}"),
+                                         c("\\u00be", "\\\\textthreequarters{}"),
+                                         c("\\u00d7", "\\\\texttimes{}"),
+                                         c("\\u00b1", "\\\\textpm{}"),
+                                         c("\\u00b9", "\\\\textonesuperior{}"),
+                                         c("\\u00b2", "\\\\texttwosuperior{}"),
+                                         c("\\u00b3", "\\\\textthreesuperior{}"),
+                                         c("\\u2044", "\\\\textfractionsolidus{}"),
+                                         c("\\u221a", "\\\\textsurd{}"),
+                                         c("\\u00ac", "\\\\textlnot{}"),
+                                         c("\\u2212", "\\\\textminus{}")))
+  tmp <- paste0("(\\\\[", Letters, "]+){}")
+  substitutions <- c(substitutions, list(c(paste0(tmp, "(?=$|[[:digit:],.?!;:\\\\}+*/-])"),
+                                           "\\1"), c(paste0(tmp, "(?! )"), "\\1 ")))
+  for (subst in substitutions) {
+    y <- gsub(stri_unescape_unicode(subst[1]), subst[2], y, perl = TRUE)
+  }
+  if (isTRUE(doublebackslash)) {
+    y <- gsub("\\", "\\\\", y, fixed = TRUE)
+  }
+  stri_trans_nfc(y)
+}
+
diff --git a/R/toBibtex.R b/R/toBibtex.R
index f78b068..65241be 100644
--- a/R/toBibtex.R
+++ b/R/toBibtex.R
@@ -5,14 +5,17 @@
 toBibtex.BibEntry <- function(object,
                               note.replace.field = c('urldate', "pubsate",
                                                      "addendum"),
-                              extra.fields = NULL, ...){
+                              extra.fields = NULL, 
+                              encoded.names.to.latex = TRUE,
+                              ...){
   
   
   object <- .BibEntry_expand_crossrefs(unclass(object), to.bibtex = TRUE)
   if (length(object)) {
     object$.index <- NULL
     rval <- head(unlist(lapply(object, ConvertToBibtex,
-                               note.replace.field, extra.fields)), 
+                               note.replace.field, extra.fields, 
+                               encoded.names.to.latex)), 
                  -1L)
   }
   else rval <- character()
@@ -21,18 +24,20 @@ toBibtex.BibEntry <- function(object,
 }
 
 #' @noRd
-ConvertToBibtex <- function(object, note.replace.field, extra.fields){
+ConvertToBibtex <- function(object,
+                            note.replace.field,
+                            extra.fields,
+                            encoded.names.to.latex) {
     object <- unclass(object)[[1L]]
     bibtype <- tolower(attr(object, "bibtype"))
     obj.names <- names(object)
-    if ("author" %in% obj.names)
-      object$author <- encoded_text_to_latex(format_author(object$author),
-                                             "UTF-8")
-    if ("editor" %in% obj.names)
-      object$editor <- encoded_text_to_latex(format_author(object$editor),
-                                             "UTF-8")
+    if (encoded.names.to.latex) {
+      if ("author" %in% obj.names)
+        object$author <- EncodedNameListToLaTeX(object$author)
+      if ("editor" %in% obj.names)
+        object$editor <- EncodedNameListToLaTeX(object$editor)
+    }
     # see 2.3 Usage Notes p. 28
-    
     if (bibtype == "article" && 'journaltitle' %in% obj.names  &&
         is.null(object$journal))
       object$journal <- object$journaltitle
diff --git a/inst/NEWS.md b/inst/NEWS.md
index a0f29a7..3d2f98c 100755
--- a/inst/NEWS.md
+++ b/inst/NEWS.md
@@ -1,3 +1,12 @@
+Changes in Version 1.4.1 (2024-09-23)
+========================================================
+* Fix for `toBibLaTeX` and `toBibTeX` non-ASCII name list fields. Add escape
+hatch if `tools::encoded_text_to_latex` fails to convert name lists to valid
+LaTeX (observed for Japanese names in #106 h/t @kijinosu, Andy Bunn).
+* Add argument `encoded.names.to.latex` to `toBibTeX` and `toBibLaTeX` to
+toggle whether `tools::encoded_text_to_latex` is called on name list fields 
+(requested in #105)
+
 Changes in Version 1.4.0 (2022-09-30)
 ========================================================
 
diff --git a/man/RefManageR-package.Rd b/man/RefManageR-package.Rd
index 6e873c8..950ea4e 100755
--- a/man/RefManageR-package.Rd
+++ b/man/RefManageR-package.Rd
@@ -5,20 +5,9 @@
 \alias{RefManageR-package}
 \alias{RefManageR}
 \alias{refmanager}
-\title{Import and Manage BibTeX and BibLaTeX references with RefManageR}
+\title{RefManageR: Straightforward 'BibTeX' and 'BibLaTeX' Bibliography Management}
 \description{
-RefManageR provides tools for importing and working with
-bibliographic references.  It greatly enhances the bibentry class by
-providing a class BibEntry which stores BibTeX and BibLaTeX references,
-supports UTF-8 encoding, and can be easily searched by any field, by date
-ranges, and by various formats for name lists (author by last names,
-translator by full names, etc.). Entries can be updated, combined, sorted, printed
-in a number of styles, and exported. BibTeX and BibLaTeX .bib files can be
-read into R and converted to BibEntry objects.  Interfaces to NCBI's
-Entrez, CrossRef, and Zotero are provided for importing references and
-references can be created from locally stored PDFs using Poppler.  Includes
-functions for citing and generating a bibliography with hyperlinks for
-documents prepared with RMarkdown or RHTML.
+Provides tools for importing and working with bibliographic references. It greatly enhances the 'bibentry' class by providing a class 'BibEntry' which stores 'BibTeX' and 'BibLaTeX' references, supports 'UTF-8' encoding, and can be easily searched by any field, by date ranges, and by various formats for name lists (author by last names, translator by full names, etc.). Entries can be updated, combined, sorted, printed in a number of styles, and exported. 'BibTeX' and 'BibLaTeX' '.bib' files can be read into 'R' and converted to 'BibEntry' objects. Interfaces to 'NCBI Entrez', 'CrossRef', and 'Zotero' are provided for importing references and references can be created from locally stored 'PDF' files using 'Poppler'. Includes functions for citing and generating a bibliography with hyperlinks for documents prepared with 'RMarkdown' or 'RHTML'.
 }
 \details{
 \bold{Importing and Creating References}
@@ -61,7 +50,7 @@ functions such as \code{\link{print.BibEntry}}, \code{\link{[.BibEntry}}, and
 }
 \references{
 McLean, M. W. (2014). Straightforward Bibliography Management in R Using the RefManageR Package.
-\href{https://arxiv.org/abs/1403.2036}{arXiv: 1403.2036 [cs.DL]}. Submitted.
+\href{https://arxiv.org/abs/1403.2036}{arXiv: 1403.2036 [cs.DL]}.
 
 Kime, P., M. Wemheuer, and P. Lehman (2022). The biblatex Package.
 \url{http://mirrors.ibiblio.org/CTAN/macros/latex/contrib/biblatex/doc/biblatex.pdf}.
@@ -71,8 +60,25 @@ Who Did What? The Roles of R Package Authors and How to Refer to Them. The R Jou
 \url{https://journal.r-project.org/archive/2012-1/RJournal_2012-1_Hornik~et~al.pdf}
 
 Patashnik, O (1988). Bibtexing. \url{https://tug.org/texmf-docs/bibtex/btxdoc.pdf}.
+}
+\seealso{
+Useful links:
+\itemize{
+  \item \url{https://github.com/ropensci/RefManageR/}
+  \item Report bugs at \url{https://github.com/ropensci/RefManageR/issues}
+}
+
 }
 \author{
+\strong{Maintainer}: Mathew W. McLean \email{mathew.w.mclean@gmail.com} (\href{https://orcid.org/0000-0002-7891-9645}{ORCID})
+
+Other contributors:
+\itemize{
+  \item Andy Bunn \email{bunna@wwu.edu} (function latexify used by toBiblatex) [contributor]
+}
+
+
 McLean, M. W. \email{mathew.w.mclean@gmail.com}
 }
+\keyword{internal}
 \keyword{package}
diff --git a/man/toBiblatex.Rd b/man/toBiblatex.Rd
index d8e4e68..f7bb9be 100755
--- a/man/toBiblatex.Rd
+++ b/man/toBiblatex.Rd
@@ -6,18 +6,23 @@
 \alias{toBibtex}
 \title{Convert BibEntry objects to BibTeX or BibLaTeX}
 \usage{
-toBiblatex(object, ...)
+toBiblatex(object, encoded.names.to.latex = TRUE, ...)
 
 \method{toBibtex}{BibEntry}(
   object,
   note.replace.field = c("urldate", "pubsate", "addendum"),
   extra.fields = NULL,
+  encoded.names.to.latex = TRUE,
   ...
 )
 }
 \arguments{
 \item{object}{an object of class BibEntry to be converted}
 
+\item{encoded.names.to.latex}{if \code{TRUE} (the default) then name list fields
+such as \sQuote{author} and \sQuote{editor} will have non-ASCII characters
+translated to LaTeX escape sequences.}
+
 \item{...}{ignored}
 
 \item{note.replace.field}{a character vector of BibLaTeX fields.  When converting an entry to BibTeX, the first field in the
@@ -85,7 +90,8 @@ if (requireNamespace("bibtex")) {
 \code{\link{toBibtex}}, \code{\link{BibEntry}}, \code{\link{print.BibEntry}}
 }
 \author{
-McLean, M. W. \email{mathew.w.mclean@gmail.com}
+McLean, M. W. \email{mathew.w.mclean@gmail.com}, Andy Bunn for code for
+translating non-ASCII characters to LaTeX.
 }
 \keyword{IO}
 \keyword{database}
diff --git a/tests/testthat/test-pubmed.R b/tests/testthat/test-pubmed.R
index 7aab544..052770f 100644
--- a/tests/testthat/test-pubmed.R
+++ b/tests/testthat/test-pubmed.R
@@ -33,6 +33,16 @@ test_that("GetPubMedByID warns if authors missing (#3)", {
   expect_warning(try_again(3, GetPubMedByID("7936917")))
 })
 
+test_that("GetPubMedByID: Multiple books parsed correctly #86",
+{
+  skip_if_offline("eutils.ncbi.nlm.nih.gov")
+  
+  ids <- c("33780208", "33764725")
+  names(ids) <- c("geary2021variation", "brennan2021potential")
+  try_again(5, {Sys.sleep(3); bib <- GetPubMedByID(ids)})
+  expect_equal(unlist(bib$eprint), ids)
+})
+
 test_that("LookupPubMedID successfully retrieves and add ID's'", {
     skip_if_offline("eutils.ncbi.nlm.nih.gov")
     
@@ -49,17 +59,8 @@ test_that("LookupPubMedID successfully retrieves and add ID's'", {
 
 test_that("GetPubMedByID reading of years/months (#52)", {
   skip_if_offline("eutils.ncbi.nlm.nih.gov")
-  Sys.sleep(2)
-  try_again(3, bib <- GetPubMedByID("23891459"))
+  try_again(3, {Sys.sleep(2); bib <- GetPubMedByID("23891459")})
   expect_equal(bib$year, "2013")
   expect_equal(bib$month, "07")
 })
 
-test_that("GetPubMedByID: Multiple books parsed correctly #86",
-{
-    skip_if_offline("eutils.ncbi.nlm.nih.gov")
-    ids <- c("33780208", "33764725")
-    names(ids) <- c("geary2021variation", "brennan2021potential")
-    try_again(3, bib <- GetPubMedByID(ids))
-    expect_equal(unlist(bib$eprint), ids)
-})
diff --git a/tests/testthat/test-readPDF.R b/tests/testthat/test-readPDF.R
index cce8a55..71480d9 100755
--- a/tests/testthat/test-readPDF.R
+++ b/tests/testthat/test-readPDF.R
@@ -17,6 +17,13 @@ tmpdir <- tempdir()
 ## curdir <- getwd()
 exe.path <- tmpdir  # file.path(tmpdir, "bin", fsep = "\\")
 ## Sys.setenv(PATH = paste(Sys.getenv("PATH"), exe.path, sep = ":"))
+skip_if_no_poppler <- function(poppler.unavailable = !nzchar(Sys.which("pdfinfo")))
+{
+  if (poppler.unavailable)
+    skip("poppler is not installed. Could not find pdfinfo executable.")
+  else
+    invisible()
+}
 poppler.fail <- !nzchar(Sys.which("pdfinfo"))
 jss.fail <- try(download.file(paste0("https://www.jstatsoft.org/index.php/",
                                      "jss/article/view/v056i11/v56i11.pdf"),
@@ -40,8 +47,8 @@ if (inherits(arxiv2.fail, "try-error"))
 biomet.fail <- !file.copy(system.file("pdf", "biometrikaEx.pdf",
                                      package = "RefManageR"), exe.path)
 if (biomet.fail)
-    biomet.fail <- try(download.file(paste0("https://stat.uconn.edu/wp-content/",
-                                            "uploads/sites/729/2019/10/83-4-715.pdf"),
+    biomet.fail <- try(download.file(paste0("https://raw.githubusercontent.com/ropensci/",
+                                            "RefManageR/master/inst/pdf/biometrikaEx.pdf"),
                                  destfile = file.path(exe.path, "biometrikaEx.pdf"),
                                  mode = "wb"))
 if (inherits(biomet.fail, "try-error"))
@@ -58,7 +65,8 @@ jstor.fail <- !file.copy(system.file("pdf", "jstor.pdf",
 
 test_that("Recognizes DOI", {
     skip_on_cran()
-    if (poppler.fail || arxiv1.fail)
+    skip_if_no_poppler(poppler.fail)
+    if (arxiv1.fail)
         skip("Couldn't download arxiv1")
     expect_message(ReadPDFs(file.path(exe.path, "FIZaop.pdf"),
                             use.metadata = FALSE),
@@ -67,9 +75,10 @@ test_that("Recognizes DOI", {
 
 test_that("Creates a BibEntry object", {
     skip_on_cran()
-    if (poppler.fail || all(jstor.fail, biomet.fail, arxiv1.fail, arxiv2.fail,
+    skip_if_no_poppler(poppler.fail)
+    if (all(jstor.fail, biomet.fail, arxiv1.fail, arxiv2.fail,
                             jss.fail))
-        skip("Couldn't download Poppler or a single PDF")
+        skip("Couldn't download any PDFs")
     msgs <- capture_messages(bib <- ReadPDFs(exe.path, progress = TRUE,
                                      use.crossref = TRUE))
     expect_is(bib, "BibEntry")
@@ -80,16 +89,18 @@ test_that("Creates a BibEntry object", {
 
 test_that("Add file field", {
     skip_on_cran()
+    skip_if_no_poppler(poppler.fail)
     if (poppler.fail || all(jstor.fail, biomet.fail, arxiv1.fail, arxiv2.fail,
                             jss.fail))
-        skip("Couldn't download Poppler or a single PDF")
+        skip("Couldn't download any PDFs")
     bib <- ReadPDFs(exe.path, progress = TRUE, use.crossref = FALSE)
     expect_is(unlist(bib$file), "character")
 })
 
 test_that("Reading one PDF file name", {
     skip_on_cran()
-    if (poppler.fail || jstor.fail)
+    skip_if_no_poppler(poppler.fail)
+    if (jstor.fail)
         skip("Couldn't copy jstor.pdf")
     bib1 <- ReadPDFs(file.path(exe.path, "jstor.pdf"), use.metadata = FALSE)
     expect_is(bib1, "BibEntry")
@@ -98,8 +109,9 @@ test_that("Reading one PDF file name", {
 
 test_that("Recognizes JSTOR", {
     skip_on_cran()
-    if (poppler.fail || jstor.fail)
-        skip("Couldn't download Poppler or JSTOR PDF")
+    skip_if_no_poppler(poppler.fail)
+    if (jstor.fail)
+        skip("Couldn't copy jstor.pdf")
     bib <- ReadPDFs(exe.path, progress = FALSE, use.crossref = FALSE)
     expect_equal(bib[author = "carrol"]$eprinttype, "jstor")
     expect_equal(bib[author = "carrol"]$url,
@@ -108,7 +120,8 @@ test_that("Recognizes JSTOR", {
 
 test_that("Recognizes arxiv", {
     skip_on_cran()
-    if (poppler.fail || arxiv2.fail)
+    skip_if_no_poppler(poppler.fail)
+    if (arxiv2.fail)
         skip("Couldn't download arxiv2 reference")
     bib <- ReadPDFs(exe.path, progress = FALSE, use.crossref = FALSE)
     expect_equal(bib[author = "paul"]$eprinttype, "arxiv")
@@ -118,7 +131,8 @@ test_that("Recognizes arxiv", {
 
 test_that("Can parse arXiv date", {
     skip_on_cran()
-    if (poppler.fail || arxiv2.fail)
+    skip_if_no_poppler(poppler.fail)
+    if (arxiv2.fail)
         skip("Couldn't download arxiv2 reference")
     ## Entry misses year/date if use.metadata is FALSE
     bib <- ReadPDFs(exe.path, progress = FALSE, use.crossref = FALSE)
@@ -128,7 +142,8 @@ test_that("Can parse arXiv date", {
 
 test_that("Reading year and author", {
     skip_on_cran()
-    if (poppler.fail || jss.fail)
+    skip_if_no_poppler(poppler.fail)
+    if (jss.fail)
         skip("Couldn't download JSS reference")
     bib <- ReadPDFs(exe.path, progress = FALSE, use.crossref = FALSE)
     expect_equal(unlist(bib[author = "luo"]$author$family),
@@ -138,7 +153,8 @@ test_that("Reading year and author", {
 
 test_that("Reading journal and title", {
     skip_on_cran()
-    if (poppler.fail || biomet.fail)
+    skip_if_no_poppler(poppler.fail)
+    if (biomet.fail)
         skip("Couldn't download Biometrika reference")
     bib <- ReadPDFs(exe.path, progress = FALSE, use.crossref = FALSE)
     expect_match(bib[year = "1996"]$journal, "Biometrika")
@@ -149,9 +165,10 @@ test_that("Reading journal and title", {
 
 test_that("use.metadata = FALSE", {
     skip_on_cran()
-    if (poppler.fail || all(jstor.fail, biomet.fail, arxiv1.fail,
+    skip_if_no_poppler(poppler.fail)
+    if (all(jstor.fail, biomet.fail, arxiv1.fail,
                             arxiv2.fail, jss.fail))
-        skip("Couldn't download Poppler or a single pdf")
+        skip("Couldn't download any PDFs")
     bib <- ReadPDFs(exe.path, use.metadata = FALSE, use.crossref = FALSE)
     expect_is(bib, "BibEntry")
     bib <- ReadPDFs(exe.path, use.metadata = FALSE, use.crossref = TRUE)
diff --git a/tests/testthat/test-tobiblatex.R b/tests/testthat/test-tobiblatex.R
new file mode 100644
index 0000000..538d99a
--- /dev/null
+++ b/tests/testthat/test-tobiblatex.R
@@ -0,0 +1,90 @@
+bib <- c(BibEntry(bibtype = "article",
+         key = "shiotsuki2011kasai",
+         title = "葛西賢太著,『現代瞑想論-変性意識がひらく世界-』",
+         author = "塩,亮子 and 葛西,賢太",
+         journal = "宗教と社会",
+         volume = 17,
+         pages = "67--69",
+         year = 2011,
+         publisher = "「宗教と社会」学会"),
+         BibEntry(bibtype = "article",
+                  key = "hiromitsu2022altered",
+                  title = "意識状態の変容と脳内ネットワーク",
+                  author = "弘光健太郎 and ヒロミツケンタロウ",
+                  journal = "鶴見大学仏教文化研究所紀要",
+                  volume = 27,
+                  pages = "53--66",
+                  year = 2022,
+                  publisher = "鶴見大学"))
+
+test_that("toBiblatex doesn't replace CJK character name lists with ???? (#106)",
+{
+  out <- toBiblatex(bib)
+  expect_false(any(grepl("[?]", out)))
+})
+
+test_that("toBibtex doesn't replace CJK character name lists with ???? (#106)",
+{
+  out <- toBibtex(bib)
+  expect_false(any(grepl("[?]", out)))
+})
+
+
+test_that("toBiblatex preserves correct i accent #102", 
+{
+  bib.str <- r"[@Article{Ryan-Hamaker-2021,
+  author = {Ryan Ois{\'i}n and Ellen L. Hamaker},
+  date = {2021-06},
+  journaltitle = {Psychometrika},
+  title = {Time to intervene: A continuous-time approach to network analysis and centrality},
+  doi = {10.1007/s11336-021-09767-0},
+  number = {1},
+  pages = {214--252},
+  volume = {87},
+  publisher = {Springer Science and Business Media {LLC}},
+}]"
+  
+  tfile <- tempfile(fileext = ".bib")
+  writeLines(bib.str, tfile)
+  bib <- ReadBib(tfile)
+  out <- toBiblatex(bib)
+  expect_true(grepl("\\'{\\i}", out[2], fixed = TRUE))
+  out <- toBibtex(bib)
+  expect_true(grepl("\\'{\\i}", out[2], fixed = TRUE))
+})
+
+bib <- BibEntry(bibtype = "Article", key = "smith2014", title = "An Article Title",
+                author = "Smith, Joé", journaltitle = "The Journal Title",
+                date = "2014-02-06", pubstate = "forthcoming")
+test_that("toBiblatex can toggle encoding names to LaTeX (#105)",
+{
+  out <- toBiblatex(bib, encoded.names.to.latex = TRUE)
+  out.author = out[3]
+  expect_true(grepl("\\'{e}", out.author, fixed = TRUE))
+  out <- toBiblatex(bib, encoded.names.to.latex = FALSE)
+  out.author = out[3]
+  expect_false(grepl("\\'{e}", out.author, fixed = TRUE))
+})
+
+test_that("toBibtex can toggle encoding names to LaTeX (#105)",
+{
+  out <- toBibtex(bib, encoded.names.to.latex = TRUE)
+  out.author = out[3]
+  expect_true(grepl("\\'{e}", out.author, fixed = TRUE))
+  out <- toBibtex(bib, encoded.names.to.latex = FALSE)
+  out.author = out[3]
+  expect_false(grepl("\\'{e}", out.author, fixed = TRUE))
+})
+
+bib <- BibEntry(bibtype = "Article", key = "smith2014", title = "An Article Title",
+                author = "{NVIDIA Corporation}", journaltitle = "The Journal Title",
+                date = "2014-02-06", pubstate = "forthcoming")
+test_that("toBiblatex doesn't escape braces in name fields (#109)",
+{
+  out <- toBiblatex(bib)
+  out.author = out[3]
+  expect_true(grepl("{{N", out.author, fixed = TRUE))
+  out <- toBibtex(bib)
+  out.author = out[3]
+  expect_true(grepl("{{N", out.author, fixed = TRUE))
+})