Ported the CITATION to the new "API".

Author: krivit

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ergm.rank
-Version: 1.1.0-1303
-Date: 2018-07-21
+Version: 1.1.0-1306
+Date: 2018-08-25
 Title: Fit, Simulate and Diagnose Exponential-Family Models for Rank-Order Relational Data
 Authors@R: c(
            person("Pavel N.", "Krivitsky", role=c("aut","cre"), email="[email protected]"),

inst/CITATION

@@ -1,47 +1,48 @@
-# ---- BEGIN STATNET CITATION FUNCTIONS ----
-# A header function for ensuring that all the statnet packages provide consistent messaging
-statnet.cite.head <- function(pkg){
-  citHeader(
-    paste("`",pkg,"` is part of the Statnet suite of packages.  ",
-          "If you are using the `",pkg,"` package for research that will be published, ",
-          "we request that you acknowledge this by citing the following.\n",
-          'For BibTeX format, use toBibtex(citation("',pkg,'")).',
-          sep="")
-    )
-}
-
-# A footer function for ensuring that all the statnet packages provide consistent messaging
-statnet.cite.foot <- function(pkg){
-  # the 'meta' variable is be provided by R's CITATION processing script
-  citFooter("We have invested a lot of time and effort in creating the",
-            "Statnet suite of packages for use by other researchers.",
-            "Please cite it in all papers where it is used. The package",pkg," is made distributed under the terms of the license:",meta$License )
-}
-
-# generates a consistent bibentry citation for the software manual of the package
-statnet.cite.pkg <- function(pkg=NULL){
-  if(!is.null(pkg)){
-    meta <- try(utils::packageDescription(pkg))
-    if(inherits(meta,"try-error") || is.na(meta)) return()
-  }
-  # the 'meta' variable is provided by R's CITATION processing script
-  projhomepage <- "http://www.statnet.org"
-  # compute the list of authors  
-  auts <- eval(parse(text=meta$`Authors@R`))
-  auts <- auts[sapply(auts, function(aut) "aut" %in% aut$role)]
-  # create a citation entry for a "software manual" for this version of the software
-  # it will be appended with any specific articles defineded inthe package citation file
-  bibentry("Manual",
-           author = auts,
-           title = paste(meta$Package,": ", meta$Title, sep=""),
-           organization = paste("The Statnet Project (\\url{", projhomepage, "})",sep=""),
-           year         = substr(meta$Date,1,4),
-           note         = paste("R package version ", meta$Version, sep=""),
-           url          = paste("https://CRAN.R-project.org/package=",meta$Package,sep="")
-           )
-}
-# ---- END STATNET CITATION FUNCTIONS ----'
-statnet.cite.head("ergm.rank")
-statnet.cite.pkg()
-statnet.cite.pkg("ergm")
-statnet.cite.foot("ergm.rank")
+#' statnet: statnet.cite.head("ergm.rank")
+# ---- BEGIN AUTOGENERATED STATNET CITATION ----
+citHeader(paste0(sQuote("ergm.rank"), " is part of the Statnet suite of packages. ", 
+    "If you are using the ", sQuote("ergm.rank"), " package for research that will be published, ", 
+    "we request that you acknowledge this by citing the following.\n", 
+    "For BibTeX format, use toBibtex(citation(\"", "ergm.rank", 
+    "\"))."))
+# ---- END AUTOGENERATED STATNET CITATION ----
+#' statnet: statnet.cite.pkg("ergm.rank")
+# ---- BEGIN AUTOGENERATED STATNET CITATION ----
+bibentry("Manual", author = structure(list(list(given = "Pavel N.", 
+    family = "Krivitsky", role = c("aut", "cre"), email = "[email protected]", 
+    comment = NULL)), class = "person"), title = paste("ergm.rank", 
+    ": ", "Fit, Simulate and Diagnose Exponential-Family Models for Rank-Order Relational Data", 
+    sep = ""), organization = paste("The Statnet Project (\\url{", 
+    "http://www.statnet.org", "})", sep = ""), year = substr("2018-08-25", 
+    1, 4), note = paste("R package version ", "1.1.0-1306", sep = ""), 
+    url = paste("https://CRAN.R-project.org/package=", "ergm.rank", 
+        sep = ""))
+# ---- END AUTOGENERATED STATNET CITATION ----
+#' statnet: statnet.cite.pkg("ergm")
+# ---- BEGIN AUTOGENERATED STATNET CITATION ----
+bibentry("Manual", author = structure(list(list(given = "Mark S.", 
+    family = "Handcock", role = "aut", email = "[email protected]", 
+    comment = NULL), list(given = "David R.", family = "Hunter", 
+    role = "aut", email = "[email protected]", comment = NULL), 
+    list(given = "Carter T.", family = "Butts", role = "aut", 
+        email = "[email protected]", comment = NULL), list(given = "Steven M.", 
+        family = "Goodreau", role = "aut", email = "[email protected]", 
+        comment = NULL), list(given = "Pavel N.", family = "Krivitsky", 
+        role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0002-9101-3362")), 
+    list(given = "Martina", family = "Morris", role = "aut", 
+        email = "[email protected]", comment = NULL)), class = "person"), 
+    title = paste("ergm", ": ", "Fit, Simulate and Diagnose Exponential-Family Models for\nNetworks", 
+        sep = ""), organization = paste("The Statnet Project (\\url{", 
+        "http://www.statnet.org", "})", sep = ""), year = substr("2018-08-15", 
+        1, 4), note = paste("R package version ", "3.9.4", sep = ""), 
+    url = paste("https://CRAN.R-project.org/package=", "ergm", 
+        sep = ""))
+# ---- END AUTOGENERATED STATNET CITATION ----
+#' statnet: statnet.cite.foot("ergm.rank")
+# ---- BEGIN AUTOGENERATED STATNET CITATION ----
+citFooter(paste0("We have invested a lot of time and effort in creating the ", 
+    "Statnet suite of packages for use by other researchers. ", 
+    "Please cite it in all papers where it is used. The package ", 
+    sQuote("ergm.rank"), " is distributed under the terms of the license ", 
+    "GPL-3 + file LICENSE", "."))
+# ---- END AUTOGENERATED STATNET CITATION ----