# -------------------------------------------------------------------------
# tarpuy ------------------------------------------------------------------
# -------------------------------------------------------------------------
#> open https://flavjack.github.io/inti/
#> open https://flavjack.shinyapps.io/tarpuy/
#> author .: Flavio Lozano-Isla (lozanoisla.com)
#> date .: 2020-04-29
# -------------------------------------------------------------------------
suppressPackageStartupMessages({library(inti)})
# -------------------------------------------------------------------------
# message -----------------------------------------------------------------
# -------------------------------------------------------------------------
head <- colortext(
"
# -------------------------------------------------------------------------
# ReadMe ------------------------------------------------------------------
# -------------------------------------------------------------------------
"
, "brown"
)
end <- colortext(
"
# -------------------------------------------------------------------------
# Tarpuy ------------------------------------------------------------------
# -------------------------------------------------------------------------
"
, "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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.