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

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

Author: jedick
Date: 2023-03-02 10:02:20 +0100 (Thu, 02 Mar 2023)
New Revision: 769

Modified:
   pkg/CHNOSZ/DESCRIPTION
   pkg/CHNOSZ/R/thermo.R
Log:
Fix for CRAN check: startup messages can be suppressed


Modified: pkg/CHNOSZ/DESCRIPTION
===================================================================
--- pkg/CHNOSZ/DESCRIPTION	2023-02-20 02:33:09 UTC (rev 768)
+++ pkg/CHNOSZ/DESCRIPTION	2023-03-02 09:02:20 UTC (rev 769)
@@ -1,6 +1,6 @@
-Date: 2023-02-20
+Date: 2023-03-02
 Package: CHNOSZ
-Version: 1.9.9-60
+Version: 1.9.9-61
 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/thermo.R
===================================================================
--- pkg/CHNOSZ/R/thermo.R	2023-02-20 02:33:09 UTC (rev 768)
+++ pkg/CHNOSZ/R/thermo.R	2023-03-02 09:02:20 UTC (rev 769)
@@ -41,8 +41,8 @@
   thermo$Berman <- do.call(rbind, Berman)
 
   # give a summary of what we are doing
-  if(!"thermo" %in% ls(CHNOSZ)) message("reset: creating \"thermo\" object")
-  else message("reset: resetting \"thermo\" object")
+  if(!"thermo" %in% ls(CHNOSZ)) packageStartupMessage("reset: creating \"thermo\" object")
+  else packageStartupMessage("reset: resetting \"thermo\" object")
   # place thermo in CHNOSZ environment
   assign("thermo", thermo, CHNOSZ)
   # run OBIGT() to add the thermodynamic data
@@ -81,7 +81,7 @@
   # Place modified thermo in CHNOSZ environment
   assign("thermo", thermo, CHNOSZ)
   # Give a summary of some of the data
-  message(paste("OBIGT: loading", ifelse(no.organics, "inorganic", "default"), "database with",
+  packageStartupMessage(paste("OBIGT: loading", ifelse(no.organics, "inorganic", "default"), "database with",
     nrow(thermo$OBIGT[thermo$OBIGT$state == "aq",]),
     "aqueous,", nrow(thermo$OBIGT), "total species"))
   # Warn if there are duplicated species