do not accidentally set seed on package load.

Author: zkamvar

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: poppr
 Type: Package
 Title: Genetic Analysis of Populations with Mixed Reproduction
-Version: 2.9.5
+Version: 2.9.6
 Authors@R: c(person(c("Zhian", "N."), "Kamvar", role = c("cre", "aut"),
     email = "zkamvar@gmail.com", comment = c(ORCID = "0000-0003-1458-7108")),
     person(c("Javier", "F."), "Tabima", role = "aut",

NEWS.md

@@ -1,3 +1,12 @@
+poppr 2.9.6
+
+MISC
+----
+
+* Poppr itself will no longer accidentally modify the random seed when it is
+  attached (found by @timtaylor,
+  https://github.com/grunwaldlab/poppr/issues/259)
+
 poppr 2.9.5
 ===========
 

R/zzz.r

@@ -54,15 +54,17 @@
   paralltype <- ifelse(poppr::poppr_has_parallel(), "available", "unavailable")
   startupmsg <- paste0(startupmsg, "\nOMP parallel support: ", paralltype, appendix)
   packageStartupMessage(startupmsg)
-  if (!interactive() || stats::runif(1) > 0.1) return()
+  if (!interactive()) return()
+
+  msec <- floor(as.POSIXlt(Sys.time())$sec*1000)
+  if (msec %% 10 > 0) return()
 
   tips <- c(
     "\nNeed help? Try the poppr mailing list: http://groups.google.com/d/forum/poppr.\n",
     "\nUse suppressPackageStartupMessages(library(\"poppr\")) to eliminate package startup messages.\n"
   )
-  
-  tip <- sample(tips, 1)
-  packageStartupMessage(tip)
+  msec <- floor(as.POSIXlt(Sys.time())$sec*1000)
+  packageStartupMessage(tips[1 + (msec %% length(n))])
 }
 
 .onLoad <- function(...){