Fix spacing issue (#1568).

Author: paciorek

packages/nimble/R/BUGS_BUGSdecl.R

@@ -788,9 +788,9 @@ getSymbolicParentNodesRecurse <- function(code, constNames = list(), indexNames
 
             ## error if it looks like mu[i][j] where i is a for-loop index
             if(variable$hasIndex)
-                stop('Error: Variable',
+                stop('Error: Variable ',
                      safeDeparse(code[[2]]),
-                     'on outside of [ contains a BUGS code index.')
+                     ' on outside of `[` in ', safeDeparse(code), ' contains a model code index.')
 
             if(variable$replaceable) {
                 ## a case like x[ block[i] ], dealing with the

packages/nimble/R/zzz.R

@@ -3,11 +3,7 @@
     #date <- utils::packageDescription("nimble", field = "Date")
     packageStartupMessage("nimble version ", release, " is loaded.",
                           "\nFor more information on NIMBLE and a User Manual,",
-                          "\nplease visit https://R-nimble.org.",
-                          "\n\nNote for advanced users who have written their own MCMC samplers:",
-                          "\n  As of version 0.13.0, NIMBLE's protocol for handling posterior",
-                          "\n  predictive nodes has changed in a way that could affect user-defined",
-                          "\n  samplers in some situations. Please see Section 15.5.1 of the User Manual."
+                          "\nplease visit https://R-nimble.org."
                           )
 }