Defines functions message_fun

# Environment
message_env <- new.env(parent = emptyenv())
message_env$poisthinwarning <- FALSE

message_fun <- function(x) {
  if (x == "poisthin" & !message_env$poisthinwarning) {
      "poisthin() is now defunct.\n",
      "Please use select_counts() and thin_2group() instead.\n",
      "This message is displayed once per R session"))
    message_env$poisthinwarning <- TRUE

Try the seqgendiff package in your browser

Any scripts or data that you put into this service are public.

seqgendiff documentation built on March 18, 2022, 5:21 p.m.