inst/yupana/www/msgs.R

In Flavjack/fieldbook: Tools and Statistical Procedures in Plant Science

# -------------------------------------------------------------------------
# yupana ------------------------------------------------------------------
# -------------------------------------------------------------------------
#> open https://flavjack.github.io/inti/
#> open https://flavjack.shinyapps.io/yupanapro/
#> author .: Flavio Lozano-Isla (lozanoisla.com)
#> date .: 2021-04-29
# -------------------------------------------------------------------------

suppressPackageStartupMessages({library(inti)})

# -------------------------------------------------------------------------
# message -----------------------------------------------------------------
# -------------------------------------------------------------------------

head <- colortext(
  "
# -------------------------------------------------------------------------
# ReadMe ------------------------------------------------------------------
# -------------------------------------------------------------------------
  "
  , "brown"
)

end <- colortext(
  "
# -------------------------------------------------------------------------
# Yupana ------------------------------------------------------------------
# -------------------------------------------------------------------------
  "
  , "brown"
)


message(
  head
  , "\n"
  , colortext("- ")
  , colortext("More info: ")
  , colortext("\n\n")
  , colortext("> https://inkaverse.com/", "blue")
  , "\n\n"
  , colortext("- ")
  , colortext("Citation: ")
  , colortext("\n\n")
  , colortext("> https://inkaverse.com/authors.html#citation", "green")
  , "\n"
  , end
)

remove(head, end)