# -------------------------------------------------------------------------
# yupana ------------------------------------------------------------------
# -------------------------------------------------------------------------
#> open https://flavjack.github.io/inti/
#> open https://flavjack.shinyapps.io/yupanapro/
#> author .: Flavio Lozano-Isla (lozanoisla.com)
#> date .: 2021-09-30
# -------------------------------------------------------------------------
cran <- c(
"devtools"
, "bslib"
, "metathis"
, "googlesheets4"
, "googleAuthR"
, "shinydashboard"
, "cowplot"
, "psych"
, "tidyverse"
, "FactoMineR"
, "ggpmisc"
)
git <- c("Flavjack/inti")
suppressPackageStartupMessages({
for (pkg in cran) {
if( !require(pkg, character.only = T) ) {
install.packages(pkg)
library(pkg, character.only = T)
}
}
for (pkg in git) {
if( !require(sub(".*/", "", pkg), character.only = T) ) {
devtools::install_github(pkg, upgrade = T)
library(sub(".*/", "", pkg), character.only = T)
}
}
rm(cran, git, pkg)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.