#' Startup script for PhyloProfile
#' 1) install and load packages
#' 2) start the PhyloProfile app
source("R/functions.R")
# List of dependent packages --------------------------------------------------
packages <- c(
"ape", "bioDist", "Biostrings", "colourpicker", "data.table", "energy",
"GenomeInfoDbData", "ggplot2", "GO.db", "grid", "gridExtra", "RColorBrewer",
"shiny", "shinyBS", "shinyjs", "OmaDB", "zoo"
)
# Load packages
lapply(packages, library, character.only = TRUE)
# Install ExperimentHub to load demo data sets
# if (!requireNamespace("ExperimentHub"))
# BiocManager::install("ExperimentHub")
# if (packageVersion("ExperimentHub") < "1.11.1")
# BiocManager::install(pkgs = "ExperimentHub", version = "devel")
# library(ExperimentHub)
# eh = ExperimentHub()
# myData <- query(eh, "PhyloProfileData")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.