R/lck.R

In PietaSchofield/plibb: Pieta Schofield's repository of former useful R functions

#' list the citation keys for a package
#'
#' @param the package name
#'
#' @export
lck <- function(packages,title=F){
  if(title){
    unlist(lapply(packages,
      function(pkg){
        cit <- toBibtex(suppressWarnings(citation(pkg)),style="Bibtex")
        begin <- as.list(which(grepl("@",cit)))
        endin <- as.list(c(which(grepl("@",cit)),(length(cit)+1))[-1])
        ncit <- Map(c,begin,endin)
        lapply(ncit,
          function(n){
            cn <- unname(cit[n[1]:(n[2]-1)])
            paste0(.getcitkey(cn)," - ",.getfield(cn,"title"))
          })
      }))
  }else{
    unlist(unname(sapply(packages,
      function(pkg){
        cit <- toBibtex(suppressWarnings(citation(pkg)),style="Bibtex")
        begin <- as.list(which(grepl("@",cit)))
        endin <- as.list(c(which(grepl("@",cit)),(length(cit)+1))[-1])
        ncit <- Map(c,begin,endin)
        unname(sapply(ncit,
          function(n){
            cn <- unname(cit[n[1]:(n[2]-1)])
            .getcitkey(cn)
          }))
      })))
  }
}

.getfield <- function(txt,key){
  m <- regexpr("[{].*[}]",txt[grepl(key,txt)])
  gsub("[}{]","",substr(txt[grepl(key,txt)],
                        (m[1]),(m[1]+attr(m,"match.length")-1)))
}

.getauthor <- function(cit){
  txt <- .getfield(cit,"author")
  m <- regexpr("^.*?(,|and|$)",txt)
  tail(strsplit(gsub(" and","",
                     substr(txt,(m[1]),(m[1]+attr(m,"match.length")-1))),
                " ")[[1]],1)
}

.getcitkey <- function(cit){
  paste0(tolower(.getauthor(cit)),.getfield(cit,"year"))
}

.addcitekey <- function(cc){
  cit <- toBibtex(citation(cc),style="Bibtex")
  begin <- as.list(which(grepl("@",cit)))
  endin <- as.list(c(which(grepl("@",cit)),(length(cit)+1))[-1])
  ncit <- Map(c,begin,endin)
  lapply(ncit,
         function(n){
           cn <- unname(cit[n[1]:(n[2]-1)])
           cn[1] <- gsub("[{].*[,]", paste0("{ ",.getcitkey(cn),","),cn[1])
           cn
         })
}