# install library ----
mypackages <- c("shiny",
"rlang",
"here",
"rio",
"reactlog",
"vroom",
# "tidyverse",
"shinythemes",
"dplyr",
"readxl",
"survival",
"survminer",
"finalfit",
"reactable",
"arsenal",
"glue",
"shinyFeedback",
"lubridate",
"janitor",
"remotes",
"shinyWidgets",
"rintrojs",
"highcharter",
"plotly",
"foreign"
)
# install_pkg <- function(name, ...) {
# if (!requireNamespace(name, quietly = TRUE)) {
# install.packages(name, ...)
# }
# }
# if (!requireNamespace("correlation", quietly = TRUE)) {
# devtools::install_github("easystats/correlation")
# }
if (!requireNamespace("correlation", quietly = TRUE)) {
renv::install("easystats/correlation")
}
# if (!requireNamespace("pacman", quietly = TRUE)) {
# install.packages("pacman")
# }
# if (!requireNamespace("purrr", quietly = TRUE)) {
# install.packages("purrr")
# }
# purrr::map(.x = mypackages, .f = install_pkg)
# if (!requireNamespace("report", quietly = TRUE)) {
# remotes::install_github("easystats/report")
# }
# Load Library ----
suppressPackageStartupMessages({
library("shiny")
library("rlang")
library("rio")
library("reactable")
library("vroom")
# library("tidyverse")
library("shinythemes")
library("dplyr")
library("readxl")
library("survival")
library("survminer")
library("finalfit")
library("arsenal")
library("glue")
library("reactlog")
library("shinyFeedback")
library("lubridate")
library("janitor")
library("correlation")
library("shinyWidgets")
library("rintrojs")
library("highcharter")
library("plotly")
library("foreign")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.