multi-metal.Rmd: Parse RH95.7 to get correct bibliography key (RH95)

git-svn-id: svn://scm.r-forge.r-project.org/svnroot/chnosz/pkg/CHNOSZ@817 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
jedick · Nov 29, 2023 · 3c312b3 · 3c312b3
1 parent de8108a
commit 3c312b3
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Date: 2023-11-29
 Package: CHNOSZ
-Version: 2.0.0-36
+Version: 2.0.0-37
 Title: Thermodynamic Calculations and Diagrams for Geochemistry
 Authors@R: c(
     person("Jeffrey", "Dick", , "[email protected]", role = c("aut", "cre"),

diff --git a/vignettes/FAQ.Rmd b/vignettes/FAQ.Rmd
@@ -225,7 +225,7 @@ info(info("alanine"))[c("ref1", "ref2")]
 thermo.refs(info("alanine"))
 ```
 
-* Mineral data in OBIGT are based on @Ber88 together with sulfides and other non-conflicting minerals from @HDNB78. For a reaction such as the pyrite-pyrrhotite-magnetite (PPM) oxygen fugacity buffer, all the sources of data can be listed as follows (for the corresponding sulfur fugacity buffer, the code could be written with hematite and `r S2` in place of pyrrhotite and oxygen):
+* Mineral data in OBIGT are based on @Ber88 together with sulfides and other non-conflicting minerals from @HDNB78. For a reaction such as the pyrite-pyrrhotite-magnetite (PPM) oxygen fugacity buffer, all the sources of data can be listed as follows:
 
 ```{r PPM_refs, message = FALSE}
 basis(c("pyrite", "pyrrhotite", "oxygen"))

diff --git a/vignettes/multi-metal.Rmd b/vignettes/multi-metal.Rmd
@@ -661,7 +661,8 @@ The next code chunk prepends `@` to the reference keys and uses the chunk option
 ```{r stack2.cite, results = "asis"}
 allyears <- lapply(iall, function(x) thermo.refs(x)$year)
 o <- order(unlist(allyears))
-cat(paste(paste0("@", unique(unlist(allkeys)[o])), collapse = "; "))
+keys <- gsub("\\..*", "", unique(unlist(allkeys)[o]))
+cat(paste(paste0("@", keys), collapse = "; "))
 ```
 
 ## Mixing 2