[CHNOSZ-commits] r741 - in pkg/CHNOSZ: . R

[noreply at r-forge.r-project.org]

Author: jedick
Date: 2022-09-19 04:30:26 +0200 (Mon, 19 Sep 2022)
New Revision: 741

Modified:
   pkg/CHNOSZ/DESCRIPTION
   pkg/CHNOSZ/R/util.legend.R
Log:
Make visible return in lP()


Modified: pkg/CHNOSZ/DESCRIPTION
===================================================================
--- pkg/CHNOSZ/DESCRIPTION	2022-09-17 23:47:19 UTC (rev 740)
+++ pkg/CHNOSZ/DESCRIPTION	2022-09-19 02:30:26 UTC (rev 741)
@@ -1,6 +1,6 @@
 Date: 2022-09-18
 Package: CHNOSZ
-Version: 1.9.9-32
+Version: 1.9.9-33
 Title: Thermodynamic Calculations and Diagrams for Geochemistry
 Authors at R: c(
     person("Jeffrey", "Dick", , "j3ffdick at gmail.com", role = c("aut", "cre"),

Modified: pkg/CHNOSZ/R/util.legend.R
===================================================================
--- pkg/CHNOSZ/R/util.legend.R	2022-09-17 23:47:19 UTC (rev 740)
+++ pkg/CHNOSZ/R/util.legend.R	2022-09-19 02:30:26 UTC (rev 741)
@@ -8,7 +8,7 @@
 
 lT <- function(x, digits = 0) substitute(x~degree*C, list(x = round(x, digits)))
 
-lP <- function(x, digits = 0) if(identical(x, "Psat")) lP <- quote(italic(P)[sat]) else lP <- substitute(x~bar, list(x = round(x, digits)))
+lP <- function(x, digits = 0) if(identical(x, "Psat")) quote(italic(P)[sat]) else substitute(x~bar, list(x = round(x, digits)))
 
 lTP <- function(x, y, digits = 0) substitute(list(x, y), list(x = lT(x, digits), y = lP(y, digits)))