ropensci / RefManageR / 222

pending completion

Build # 222

Build Type

push

travis-ci

Committed by

mwmclean

Commit Message

<a href="https://github.com/ropensci/RefManageR/commit/<a class=hub.com/ropensci/RefManageR/commit/1540cc495a8ab7f394d32b74d4a6cd159a203237">1540cc495<a href="https://github.com/ropensci/RefManageR/commit/1540cc495a8ab7f394d32b74d4a6cd159a203237">&quot;&gt;Revert &amp;quot;Protect against multi-byte char conversion&quot;

This reverts commit </a><a class="double-link" href="https://github.com/ropensci/RefManageR/commit/<a class="double-link" href="https://github.com/ropensci/RefManageR/commit/45becf9a3aedf461ba1d39d6fd3f28175fc0a8ed">45becf9a3</a>">45becf9a3</a><a href="https://github.com/ropensci/RefManageR/commit/1540cc495a8ab7f394d32b74d4a6cd159a203237">.

* Typo in commit due to copy/paste stupidity

* The bug is really two bugs that need to be addressed:
1) gsub converting multi-byte chars in single-byte locales
2) in author lists with abbreviated given names, a period
will appear immediately before a comma and should not be replaced.

Run Details

95 of 95 new or added lines in 1 file covered. (100.0%)

3723 of 5320 relevant lines covered (69.98%)

545.03 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

38.0

/R/07makeBibLatexAuthoryear.R

#' @keywords internal
#' @noRd
MakeAuthorYear <- function(docstyle = "text"){
  DF <- function(dat, field = 'date'){
    if (!is.null(dat)){
      if (field == 'date'){
        fmt <- '%Y'
      }else if (field == 'url'){
          fmt <- switch(as.character(attr(dat, 'day.mon')), '2' = '%m/%d/%Y',
                        '1' ='%m/%Y', '0' ='%Y')
      }else{  # eventdate
          fmt <- switch(as.character(attr(dat, 'day.mon')), '2' = '%b. %d, %Y',
                        '1' = '%b. %Y', '0' = '%Y')
      }
      if (is.interval(dat)){
        begind <- int_start(dat)
        endd <- int_end(dat)
        paste(format(begind, fmt), format(endd, fmt), sep ='-')
      }else{
        format(dat, fmt)
      }
    }
  }

  with(GetFormatFunctions(docstyle, DF), {
    ##################################################################
    ## Formatting functions

    collapseF <- function(strings){ 
      out <- paste(strings, collapse = "\n")
      gsub('\\.((\\n)?,)', '\\1', out, useBytes = TRUE)
    }

    addPeriodTitle <- function (string){ 
      sub("([^.?!])$", "\\dQuote{\\1.}", string, useBytes = TRUE)
    }

    ###########################################################################
    ## FIELDS: 
    ###########################################################################

    fmtDate <- function(dat, ind = ''){
      if (length(dat)){
        paste0('(', DateFormatter(dat), ind, ').')
      }
    }

    fmtPages <- function(pgs, pref){
      if (length(pgs)){
        if (!length(pref)){
          if (grepl('-', pgs, useBytes = TRUE)){
            paste0(', pp. ', pgs)
          }else{
            paste0(', p. ', pgs)
          }
        }else{
          if (grepl('-', pgs, useBytes = TRUE)){
            paste0(switch(pref, column = ', cols. ', verse = ', vv. ',
                          line = ', ll. ',  section = ', \u00a7\u00a7 ',
                          paragraph = ', par. ', none = ', ', ', pp. '),
                   pgs)
          }else{
            paste0(switch(pref, column = ', col. ', verse = ', v. ',
                          line = ', l. ',  section = ', \u00a7 ',
                          paragraph = ', par. ', none = ', ', ', p. '), pgs)
          }
        }
      }
    }

    fmtTotalPages <- function(pgs, pref){
      if (length(pgs)){
        if (!length(pref)){
          if (pgs == 1){
            paste0(pgs, ' p.')        
          }else{
            paste0(pgs, ' pp.')
          }
        }else{
          if (pgs == 1){
            paste0(pgs, switch(pref, column = ' col.', verse = ' v.',
                               line = ' l.',  section = ' \u00a7.',
                               paragraph = ' par.', none = '.', ' p.'))
          }else{
            paste0(pgs, switch(pref, column = ' cols.', verse = ' vv.',
                               line = ' ll.',  section = ' \u00a7\u00a7.',
                               paragraph = ' par.', none = '.', ' pp.'))
          }
        }
      }
    }

    fmtIssue <- label(prefix = '(', suffix =')')

    fmtBVolume <- function(vol, num){
      if (length(vol)){
        res <- paste0('Vol. ', vol)
        if (length(num))
          res <- paste(res, num, sep='.')
        paste0(res, '.')
      }
    }

    fmtBAuthor <- function(doc){
      res <- fmtBAuthorSimple(doc, .BibOptions$max.names)
      if (length(res)){
        if (docstyle == "html"){
          key <- attr(doc, "key")
          ind <- .cites$indices[key]
          key <- gsub("[^_a-zA-Z0-9-]", "", key, useBytes = TRUE)
          res <- if (!is.na(ind) && ind)
            paste0("\\code{", key, "}\\href{#cite-", key, "}{", res, "}")
          else res    
        }else if (docstyle == "markdown"){
          key <- attr(doc, "key")
          ind <- .cites$indices[key]
          key <- gsub("[^_a-zA-Z0-9-]", "", key, useBytes = TRUE)
          res <- if (!is.na(ind) && ind){
            paste0("<a name=bib-", key, "></a>[", res, "](#cite-", key, ")")
          }else res    
        }  
      }
      res
    }
    
    fmtBAuthorSimple <- function(doc, max.n){
      if (doc$.duplicated)
        return(switch(docstyle, html = "---", markdown = "\\-\\-\\-",
                      "\u2014\u2013\u2014"))
      out <- NULL
      if (length(doc$author)){
        res <- doc$author
      }else if (length(doc$editor)){
        res <- doc$editor
      }else if (length(doc$translator)){
        res <- doc$translator
      }else{
        return(cleanupLatex(doc$title))
      }
      nnames <- length(res)
      if (nnames){
        out <- shortNameLF(res[1L])
        if (nnames == 2L){
          if (max.n < 2L){
            out <- paste0(out, ' et al.')
          }else{
            out <- paste(out, shortName(res[-1L]), sep = ' and ')
          }
        }else if (nnames > 2L){
          if (nnames > max.n){
            if (max.n <= 1L){
              out <- paste0(out, ' et al.')
            }else{
                out <- paste0(paste(out, paste0(vapply(res[2L:max.n],
                                                       shortName, ""),
                                                collapse = ", "), sep = ', '),
                              ', et al.')
            }
          }else{
              out <- paste(paste(out, paste0(vapply(res[-c(1L, length(res))],
                                                    shortName, ""),
                                             collapse = ", "), sep = ', '),
                         shortName(res[length(res)]), sep = ', and ')
          }
        }
      }

      if (!length(doc$author) && length(doc$editor)){
        if (!length(doc$editortype)){
          out <- paste0(out, ', ed.')
        }else{
            out <- paste0(out, switch(tolower(doc$editortype),
                                      'compiler' = ', comp.',
                                      'editor' = ', ed.', 
                                      'founder' = ', found.',
                                      'continuator' = ', cont.', 
                                      'redactor' = ', red.',
                                      'reviser' = ', rev.',
                                      'collaborator' = ', collab.',
                                      doc$editortype))
            
        }
      }
      out
    }

    fmtPublisher <- function(pub, loc, addr){
      if (length(loc) || length(addr)){
        res <- if (length(loc))
                   plainclean(loc)
               else plainclean(addr)
        if (length(pub))
          res <- paste(res, plainclean(pub), sep = ': ')
        res
      }else if (length(pub)){
        plainclean(pub)
      }
    }

    fmtEventDate <- function(ed, ven){
      if (length(ed) || length(ven)){
        fDate <- try(ProcessDate(ed, NULL), TRUE)
        if (is.null(fDate) || inherits(fDate, 'try-error')){
          if (length(ven))
            paste0('(', plainclean(ven), ').')
        }else{
            paste0('(', paste0(c(plainclean(ven), DateFormatter(fDate,'event')),
                               collapse = ', '), ').')  
        } 
      }
    }

    fmtUPPublisher <- function(loc, addr){
      if (length(loc))
        return(cleanupLatex(addPeriod(loc)))
      if (length(addr))
        return(cleanupLatex(addPeriod(addr)))
    }

    ###########################################################################
    ## Entry types: Bibliography Drivers in BibLaTeX (Sec. 4.2.3 in manual)
    ###########################################################################
      formatArticle <- function(paper){
          collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                                 paper$.index),
                      fmtJTitle(paper$title), 
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language),
                   fmtTranslator(paper), fmtCommentator(paper$commentator),
                   fmtAnnotator(paper$annotator),
                   fmtVersion(paper$version),
                   sentence(paste0(c(paste0(c(fmtJournal(paper), 
                                              fmtSeries(paper$series)),
                                            collapse = ''),
                                       fmtVolume(paper$volume, paper$number), 
                                     fmtIssue(paper[['issue']])),
                                   collapse =' '),
                            fmtBTitle(paper$issuetitle, paper$issuesubtitle), 
                            fmtEditor(paper, suffix = NULL, prefix = '. '),
                            fmtNote(paper$note, prefix ='. ', suffix = NULL),
                            fmtPages(paper$pages, paper$pagination), sep = ''),
                   fmtISSN(paper$issn), 
                   fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                   fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))
    }
    # if main title fields are missing, title fields are moved before
    formatBook <- function(paper, collection = FALSE){
      if (collection && length(paper$author))
        paper$author <- NULL

      if (length(paper$maintitle)){
          collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                                 paper$.index),
                      fmtBTitle(paper$maintitle, paper$mainsubtitle),
                      fmtAddOn(paper$maintitleaddon),
                      paste0(c(fmtBVolume(paper$volume, paper$part),
                               fmtBTitle(paper$title, paper$subtitle)),
                             collapse = ': '),
                      fmtAddOn(paper$titleaddon),  
                      fmtLanguage(paper$language),
                      fmtEditor(paper, !length(paper$author)),
                      fmtTranslator(paper), fmtCommentator(paper$commentator),
                      fmtAnnotator(paper$annotator),
                      fmtIntroduction(paper$introduction),
                      fmtForeword(paper$foreword),
                      fmtAfterword(paper$afterword),
                      fmtEdition(paper$edition), fmtVolumes(paper$volumes),
                      sentence(cleanupLatex(paper$series), paper$number,
                               sep = ' '), fmtNote(paper$note),  
                      sentence(fmtPublisher(paper$publisher,
                                            paper$location, paper$address),
                               fmtChapter(paper$chapter),
                               fmtPages(paper$pages, paper$bookpagination),
                               sep = ''),
                      fmtTotalPages(paper$pagetotal, paper$bookpagination),
                      fmtISBN(paper$isbn), 
                      fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                      fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                     ))
      }else{
          collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                                 paper$.index),
                      fmtBTitle(paper$title, paper$subtitle), 
                      fmtAddOn(paper$titleaddon),
                      fmtLanguage(paper$language),
                      fmtEditor(paper, !length(paper$author)),
                      fmtTranslator(paper), fmtCommentator(paper$commentator),
                      fmtAnnotator(paper$annotator),
                      fmtIntroduction(paper$introduction),
                      fmtForeword(paper$foreword),fmtAfterword(paper$afterword),
                      fmtEdition(paper$edition),
                      fmtBVolume(paper$volume, paper$part),
                      fmtVolumes(paper$volumes), 
                      sentence(cleanupLatex(paper$series), paper$number,
                               sep = ' '),
                      fmtNote(paper$note),
                      sentence(fmtPublisher(paper$publisher, paper$location,
                                            paper$address),
                               fmtChapter(paper$chapter),
                               fmtPages(paper$pages, paper$bookpagination),
                               sep = ''),
                      fmtTotalPages(paper$pagetotal, paper$bookpagination),
                      fmtISBN(paper$isbn),  fmtDOI(paper$doi),
                      fmtEprint(paper), fmtURL(paper),
                      fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))
      }
    }

    formatInBook <- function(paper, bookinbook = FALSE){
      if (length(paper$booktitle) && length(paper$maintitle)){
        collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                               paper$.index),  
                   fmtIBTitle(paper$title, paper$subtitle, bookinbook),
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language),  
                   paste0(c('In: ', fmtIBAuthor(paper$bookauthor),
                            fmtBTitle(paper$maintitle, paper$mainsubtitle))), 
                   fmtAddOn(paper$maintitleaddon), 
                   paste0(c(fmtBVolume(paper$volume, paper$part),
                            fmtBTitle(paper$booktitle, paper$booksubtitle)), 
                          collapse = ': '), fmtAddOn(paper$booktitleaddon),
                   fmtEditor(paper, !length(paper$author)),
                   fmtTranslator(paper), fmtCommentator(paper$commentator),
                   fmtAnnotator(paper$annotator),
                   fmtIntroduction(paper$introduction),
                   fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                   fmtEdition(paper$edition), fmtVolumes(paper$volumes),
                   sentence(cleanupLatex(paper$series),paper$number,sep = ' '),
                   fmtNote(paper$note), sentence(fmtPublisher(paper$publisher,
                                                              paper$location,
                                                              paper$address),
                                                 fmtChapter(paper$chapter),
                                                 fmtPages(paper$pages,
                                                          paper$bookpagination),
                                                 sep = ''),
                   fmtTotalPages(paper$pagetotal, paper$bookpagination),
                   fmtISBN(paper$isbn),  fmtDOI(paper$doi), fmtEprint(paper),
                   fmtURL(paper), fmtAddendum(paper$addendum), 
                   fmtPubstate(paper$pubstate)
                   ))
      }else{
        if (length(paper$maintitle)){
          paper$booktitle <- paper$maintitle
          paper$booksubtitle <- paper$mainsubtitle
          paper$booktitleaddon <- paper$maintitleaddon
        }
        collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                               paper$.index),  
                   fmtIBTitle(paper$title, paper$subtitle, bookinbook),
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language), 
                   paste0(c('In: ', fmtIBAuthor(paper$bookauthor),
                            fmtBTitle(paper$booktitle, paper$booksubtitle))), 
                   fmtAddOn(paper$booktitleaddon), 
                              fmtEditor(paper, !length(paper$author)),
                   fmtTranslator(paper), fmtCommentator(paper$commentator),
                   fmtAnnotator(paper$annotator),
                   fmtIntroduction(paper$introduction),
                   fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                   fmtEdition(paper$edition), addPeriod(fmtBVolume(paper$volume,
                                                                   paper$part)),
                   fmtVolumes(paper$volumes),
                   sentence(cleanupLatex(paper$series),paper$number,sep = ' '), 
                   fmtNote(paper$note), sentence(fmtPublisher(paper$publisher,
                                                              paper$location,
                                                              paper$address),
                                                 fmtChapter(paper$chapter),
                                                 fmtPages(paper$pages,
                                                          paper$bookpagination),
                                                 sep = ''), 
                   fmtTotalPages(paper$pagetotal, paper$bookpagination),
                   fmtISBN(paper$isbn), fmtDOI(paper$doi), fmtEprint(paper),
                   fmtURL(paper), fmtAddendum(paper$addendum), 
                   fmtPubstate(paper$pubstate)
               ))

      }
    }

    formatBooklet <- function(paper){
        collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                               paper$.index),
                    fmtBTitle(paper$title, paper$subtitle),
                    fmtAddOn(paper$titleaddon),  fmtLanguage(paper$language),
                    fmtEditor(paper, !length(paper$author)),
                    fmtTranslator(paper), fmtCommentator(paper$commentator),
                    fmtAnnotator(paper$annotator),
                    fmtIntroduction(paper$introduction),
                    fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                   fmtHowPublished(paper$howpublished),
                   fmtNote(paper$note),
                   sentence(fmtPublisher(NULL, paper$location, paper$address),
                            fmtChapter(paper$chapter),
                            fmtPages(paper$pages, paper$bookpagination),
                            sep = ''), 
                   fmtTotalPages(paper$pagetotal, paper$bookpagination),
                   fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                   fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))
    }

    formatInCollection <- function(paper){
      if (length(paper$booktitle) && length(paper$maintitle)){
        collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                               paper$.index),  
                    fmtIBTitle(paper$title, paper$subtitle, FALSE),
                    fmtAddOn(paper$titleaddon), fmtLanguage(paper$language),  
                    paste0(c('In: ', fmtBTitle(paper$maintitle,
                                               paper$mainsubtitle))), 
                    fmtAddOn(paper$maintitleaddon), 
                    paste0(c(fmtBVolume(paper$volume, paper$part),
                             fmtBTitle(paper$booktitle, paper$booksubtitle)), 
                           collapse = ': '), fmtAddOn(paper$booktitleaddon),
                    fmtEditor(paper, !length(paper$author)),
                    fmtTranslator(paper), fmtCommentator(paper$commentator),
                    fmtAnnotator(paper$annotator),
                    fmtIntroduction(paper$introduction),
                    fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                    fmtEdition(paper$edition), fmtVolumes(paper$volumes),
                    sentence(cleanupLatex(paper$series),paper$number,sep = ' '),
                    fmtNote(paper$note), sentence(fmtPublisher(paper$publisher,
                                                               paper$location,
                                                               paper$address),
                                                  fmtChapter(paper$chapter),
                                                  fmtPages(paper$pages,
                                                          paper$bookpagination),
                                                  sep = ''), 
                    fmtTotalPages(paper$pagetotal, paper$bookpagination),
                    fmtISBN(paper$isbn), fmtDOI(paper$doi), fmtEprint(paper),
                    fmtURL(paper), fmtAddendum(paper$addendum),
                    fmtPubstate(paper$pubstate)
        ))
      }else{
        if (length(paper$maintitle)){
          paper$booktitle <- paper$maintitle
          paper$booksubtitle <- paper$mainsubtitle
          paper$booktitleaddon <- paper$maintitleaddon
        }
        collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                               paper$.index),  
                    fmtIBTitle(paper$title, paper$subtitle, FALSE),
                    fmtAddOn(paper$titleaddon), fmtLanguage(paper$language), 
                    paste0(c('In: ', fmtBTitle(paper$booktitle,
                                               paper$booksubtitle))), 
                    fmtAddOn(paper$booktitleaddon), 
                    fmtEditor(paper, !length(paper$author)),
                    fmtTranslator(paper), fmtCommentator(paper$commentator),
                    fmtAnnotator(paper$annotator),
                    fmtIntroduction(paper$introduction),
                    fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                    fmtEdition(paper$edition),addPeriod(fmtBVolume(paper$volume,
                                                                   paper$part)),
                    fmtVolumes(paper$volumes), 
                    sentence(cleanupLatex(paper$series), paper$number,
                             sep = ' '), 
                    fmtNote(paper$note), sentence(fmtPublisher(paper$publisher,
                                                               paper$location,
                                                               paper$address),
                                                  fmtChapter(paper$chapter),
                                                  fmtPages(paper$pages,
                                                          paper$bookpagination),
                                                  sep = ''), 
                    fmtTotalPages(paper$pagetotal, paper$bookpagination),
                    fmtISBN(paper$isbn),  fmtDOI(paper$doi), fmtEprint(paper),
                    fmtURL(paper), fmtAddendum(paper$addendum),
                    fmtPubstate(paper$pubstate)
        ))

      }
    }

    formatManual <- function(paper){
        collapseF(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                               paper$.index),
                    fmtBTitle(paper$title, paper$subtitle), 
                    fmtAddOn(paper$titleaddon), fmtLanguage(paper$language),
                    fmtEditor(paper, !length(paper$author)),
                    fmtEdition(paper$edition),
                    sentence(cleanupLatex(paper$series), paper$number,
                             sep = ' '),
                    fmtType(paper$type), fmtVersion(paper$version),
                    fmtNote(paper$note), fmtOrganization(paper$organization),
                    sentence(fmtPublisher(paper$publisher, paper$location,
                                          paper$address),
                             fmtChapter(paper$chapter),
                             fmtPages(paper$pages, paper$bookpagination),
                             sep = ''), 
                    fmtTotalPages(paper$pagetotal, paper$bookpagination),
                    fmtISBN(paper$isbn), 
                    fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                    fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))
    }

    formatMisc <- function(paper){
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index),
                   fmtBTitle(paper$title, paper$subtitle), 
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language),
                   fmtEditor(paper, !length(paper$author)),
                   fmtHowPublished(paper$howpublished),
                   fmtType(paper$type), fmtVersion(paper$version),
                   fmtNote(paper$note), 
                   cleanap(fmtPublisher(paper$organization, paper$location,
                                        paper$address)), 
                   fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                   fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))    
    }

    formatOnline <- function(paper){
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index),
                   fmtBTitle(paper$title, paper$subtitle),
                   fmtAddOn(paper$titleaddon), 
                   fmtLanguage(paper$language),
                   fmtEditor(paper, !length(paper$author)),
                   fmtNote(paper$note), fmtOtherField(paper$organization),
                   fmtEprint(paper), fmtURL(paper),fmtAddendum(paper$addendum), 
                   fmtPubstate(paper$pubstate)
                   ))    
    }

    formatPatent <- function(paper){
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index), 
                   fmtIBTitle(paper$title, paper$subtitle, FALSE),
                   fmtAddOn(paper$titleaddon),
                   fmtLanguage(paper$language),
                   sentence(fmtType(paper$type), paper$number,
                            fmtPLocation(paper$location), sep = ' '),
                   fmtHolder(paper$holder), fmtNote(paper$note), 
                   fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                   fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))    
    }

    formatPeriodical <- function(paper){
      if (length(paper$author))
        paper$author <- NULL

      if (length(paper$issuetitle)){
          collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                                paper$.index),
                     fmtBTitle(paper$title, paper$subtitle),
                     paste0(c(paste0(c(cleanupLatex(paper$series),
                                       fmtVolume(paper$volume, paper$number),
                                       fmtIssue(paper$issue)), collapse = ' '), 
                              fmtBTitle(paper$issuetitle, paper$issuesubtitle)),
                            collapse = ': '),
                     fmtLanguage(paper$language),
                     fmtEditor(paper, !length(paper$author)),
                     fmtTranslator(paper), fmtCommentator(paper$commentator),
                     fmtAnnotator(paper$annotator),
                     fmtIntroduction(paper$introduction),
                     fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                     fmtNote(paper$note), fmtISSN(paper$issn),
                     fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                     fmtAddendum(paper$addendum),  fmtPubstate(paper$pubstate)
                     ))
      }else{
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index),
                   fmtBTitle(paper$title, paper$subtitle),
                   sentence(cleanupLatex(paper$series), 
                            fmtVolume(paper$volume, paper$number),
                            fmtIssue(paper$issue), sep = ' '),
                   fmtLanguage(paper$language),
                   fmtEditor(paper, !length(paper$author)),
                   fmtTranslator(paper), fmtCommentator(paper$commentator),
                   fmtAnnotator(paper$annotator),
                   fmtIntroduction(paper$introduction),
                   fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                   fmtNote(paper$note), fmtISSN(paper$issn),
                   fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                   fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                 ))
      }
    }

    formatProceedings <- function(paper){
      if (length(paper$author))
        paper$author <- NULL

      if (length(paper$maintitle)){
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index), 
                   fmtBTitle(paper$maintitle, paper$mainsubtitle),
                   fmtAddOn(paper$maintitleaddon), 
                   paste0(c(fmtBVolume(paper$volume, paper$part),
                            fmtBTitle(paper$title, paper$subtitle)),
                          collapse = ': '),
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language),
                   fmtEventTitle(paper$eventtitle), 
                   sentence(paper$eventtitleaddon, fmtEventDate(paper$eventdate,
                                                                paper$venue),
                            sep = ' '),
                            fmtEditor(paper, !length(paper$author)),
                   fmtTranslator(paper), fmtCommentator(paper$commentator),
                   fmtAnnotator(paper$annotator),
                   fmtIntroduction(paper$introduction),
                   fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                   fmtVolumes(paper$volumes),
                   sentence(cleanupLatex(paper$series),
                            paper$number, sep = ' '),
                   fmtOrganization(paper$organization), fmtNote(paper$note),
                   sentence(fmtPublisher(paper$publisher, paper$location,
                                         paper$address),
                            fmtChapter(paper$chapter),
                            fmtPages(paper$pages, paper$bookpagination),
                            sep = ''), 
                   fmtTotalPages(paper$pagetotal, paper$bookpagination),
                   fmtISBN(paper$isbn), 
                   fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                   fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))
      }else{
          collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                                paper$.index),
                     fmtBTitle(paper$title, paper$subtitle),
                     fmtAddOn(paper$titleaddon), fmtLanguage(paper$language), 
                   fmtEventTitle(paper$eventtitle),
                   sentence(paper$eventtitleaddon, fmtEventDate(paper$eventdate,
                                                                paper$venue),
                            sep = ' '), fmtEditor(paper, !length(paper$author)),
                   fmtTranslator(paper), fmtCommentator(paper$commentator),
                   fmtAnnotator(paper$annotator),
                   fmtIntroduction(paper$introduction),
                   fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                   fmtEdition(paper$edition), addPeriod(fmtBVolume(paper$volume,
                                                                   paper$part)),
                   fmtVolumes(paper$volumes),
                   sentence(cleanupLatex(paper$series), paper$number,
                            sep = ' '),
                   fmtNote(paper$note), fmtOrganization(paper$organization), 
                   sentence(fmtPublisher(paper$publisher, paper$location,
                                         paper$address), 
                            fmtChapter(paper$chapter),
                            fmtPages(paper$pages, paper$bookpagination),
                            sep = ''),  fmtTotalPages(paper$pagetotal,
                                                      paper$bookpagination),
                   fmtISBN(paper$isbn), 
                   fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                   fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))
      }
    }

    formatInProceedings <- function(paper){
      if (length(paper$booktitle) && length(paper$maintitle)){
          collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                                paper$.index), 
                   fmtIBTitle(paper$title, paper$subtitle, FALSE),
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language),  
                   paste0(c('In: ', fmtBTitle(paper$maintitle,
                                              paper$mainsubtitle))), 
                   fmtAddOn(paper$maintitleaddon), 
                   paste0(c(fmtBVolume(paper$volume, paper$part),
                            fmtBTitle(paper$booktitle, paper$booksubtitle)), 
                          collapse = ': '), fmtAddOn(paper$booktitleaddon),
                   fmtEventTitle(paper$eventtitle),
                   sentence(paper$eventtitleaddon, fmtEventDate(paper$eventdate,
                                                                paper$venue),
                            sep = ' '),
                   fmtEditor(paper, !length(paper$author)),
                   fmtTranslator(paper), fmtCommentator(paper$commentator),
                   fmtAnnotator(paper$annotator),
                   fmtIntroduction(paper$introduction),
                   fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                   fmtVolumes(paper$volumes),
                   sentence(cleanupLatex(paper$series), paper$number,sep = ' '),
                   fmtNote(paper$note), fmtOrganization(paper$organization),
                   sentence(fmtPublisher(paper$publisher, paper$location,
                                         paper$address),
                            fmtChapter(paper$chapter),
                            fmtPages(paper$pages, paper$bookpagination),
                            sep = ''), fmtTotalPages(paper$pagetotal,
                                                     paper$bookpagination),
                   fmtISBN(paper$isbn), fmtDOI(paper$doi), fmtEprint(paper),
                   fmtURL(paper), fmtAddendum(paper$addendum),
                   fmtPubstate(paper$pubstate)
                   ))
      }else{
        if (length(paper$maintitle)){
          paper$booktitle <- paper$maintitle
          paper$booksubtitle <- paper$mainsubtitle
          paper$booktitleaddon <- paper$maintitleaddon
        }
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index),
                   fmtIBTitle(paper$title, paper$subtitle, FALSE),
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language), 
                   paste0(c('In: ', fmtBTitle(paper$booktitle,
                                              paper$booksubtitle))),
                   fmtAddOn(paper$booktitleaddon),
                   fmtEventTitle(paper$eventtitle), 
                   sentence(paper$eventtitleaddon, fmtEventDate(paper$eventdate,
                                                                paper$venue),
                            sep = ' '), fmtEditor(paper, !length(paper$author)),
                   fmtTranslator(paper), fmtCommentator(paper$commentator),
                   fmtAnnotator(paper$annotator),
                   fmtIntroduction(paper$introduction),
                   fmtForeword(paper$foreword), fmtAfterword(paper$afterword),
                   addPeriod(fmtBVolume(paper$volume, paper$part)), 
                   fmtVolumes(paper$volumes),
                   sentence(cleanupLatex(paper$series), paper$number,sep = ' '),
                   fmtNote(paper$note), fmtOrganization(paper$organization), 
                   sentence(fmtPublisher(paper$publisher, paper$location,
                                         paper$address),
                            fmtChapter(paper$chapter),
                            fmtPages(paper$pages, paper$bookpagination),
                            sep = ''),
                   fmtTotalPages(paper$pagetotal, paper$bookpagination),
                   fmtISBN(paper$isbn), fmtDOI(paper$doi), fmtEprint(paper),
                   fmtURL(paper), fmtAddendum(paper$addendum),
                   fmtPubstate(paper$pubstate)
               ))
      }
    }

    formatReport <- function(paper, type = NULL){
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index),
                   fmtBTitle(paper$title, paper$subtitle),
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language),
                   sentence(fmtType(paper$type), paper$number, sep = ' '), 
               fmtVersion(paper$version), fmtNote(paper$note), 
               sentence(fmtPublisher(paper$institution, paper$location,
                                     paper$address),
                        fmtChapter(paper$chapter),
                        fmtPages(paper$pages, paper$bookpagination), sep = ''), 
               fmtTotalPages(paper$pagetotal, paper$bookpagination),
               fmtISRN(paper$isrn), fmtDOI(paper$doi), fmtEprint(paper),
               fmtURL(paper), fmtAddendum(paper$addendum), 
               fmtPubstate(paper$pubstate)
               ))    
    }

    formatThesis <- function(paper, type = NULL){
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index), 
                   fmtIBTitle(paper$title, paper$subtitle, FALSE),
                   fmtAddOn(paper$titleaddon), 
                   fmtLanguage(paper$language), addPeriod(fmtType(paper$type)),
                   fmtNote(paper$note), 
                   sentence(fmtPublisher(paper$institution, paper$location,
                                         paper$address),
                            fmtChapter(paper$chapter),
                            fmtPages(paper$pages, paper$bookpagination),
                            sep = ''), 
                   fmtTotalPages(paper$pagetotal, paper$bookpagination),
                   fmtDOI(paper$doi), fmtEprint(paper), fmtURL(paper),
                   fmtAddendum(paper$addendum), fmtPubstate(paper$pubstate)
                   ))   
    }

    formatUnpublished <- function(paper){
        collapse(c(fmtBAuthor(paper), fmtDate(attr(paper, 'dateobj'),
                                              paper$.index), 
                   fmtIBTitle(paper$title, paper$subtitle, FALSE),
                   fmtAddOn(paper$titleaddon), fmtLanguage(paper$language), 
                   fmtHowPublished(paper$howpublished), fmtNote(paper$note), 
                   fmtUPPublisher(paper$location, paper$address),
                   fmtDOI(paper$doi), fmtURL(paper),fmtAddendum(paper$addendum),
                   fmtPubstate(paper$pubstate)
                   ))    
    }

    environment()
    })
}

ropensci / RefManageR / 222

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous